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INTRODUCTION < 


This book will help you leom most of the 
common BASIC language words you'll need to 
write your own computer programs. To learn the 
fastest and to have the most fun, sit at your 
computer and type in the examples that are 
given. 

BASIC varies slightly from one brand of 
computer to another. Because of this, the book 
uses a "generic" form of BASIC throughout, so 


you'll have to consult the BASIC CONVERSION 
CHART on page 60 to find the variations used 
by Apple, ADAM, Commodore, Atari and TRS-80 
Color Computers. Make sure you type in the 
proper words and format for your computer! 
(There are reminders of this throughout the 
book.) 

Now let's have some fun and learn BEGINNERS' 
BASIC! 






For example, "GOTO" is a BASIC word which is 
the same as "go to" in English. BASIC takes out 
the space between the English words because 
the computer wants short, concise statements 
as commands. In English I could say, "Rease go 
to the store." But when I am communicating 
with the computer I must use the exact form of 
the BASIC command so that it will understand. 

When you are communicating with the 
computer and you use a word it does not 
understand or you misspell a word, the 
computer usually responds with the expression 
"SYNTAX ERROR." This is the computer's way of 
saying "I do not understand" or "The spelling of 
that word is not correcf ' or "That word is not in 
my vocabulary." The computer, you see, has a 
very limited vocabulary. This is sometimes good 
and sometimes bad. If s good because you 
don't have to learn a lot to become a good 
programmer, but bad because it has a limited 
number of phrases to tell you whof s wrong or 
why something isn't working. 

The important thing for now is to learn the 
commands precisely so that when you use 
BASIC the computer will understand what you 
want it to do and not respond v/ith SYNTAX 
ERROR every time you try to do something. 


BASIC < 


This book is about "BASIC." BASIC is a language 
just like English is a language, French is a 
language and Spanish is a language. 


If I want to talk to someone in Spain, I must 
speak to that person in Spanish so he will 
understand. It is the same with computers, if I 
want to communicate with a computer, I must 
use a language the computer will understand. 
One of the languages a computer understands 
is BASIC. 

By the way, BASIC stands for "Beginnefs All- 
purpose Symbolic Instruction Code." If you want 
to confound your enemies and amaze your 
friends, you can tell them you're studying 
Beginnefs All-purpose Symbolic Instruction 
Code. It sounds more profound than, "I'm 
studying BASIC." You'll find many people like to 
confound their friends with computer jargon, so 
study this book and join the club. 

BASIC as a language is quite similar to English. 
There are words like "PRINT," "SAVE" and "LIST." 
BASIC tends to use English words so you can 
understand them easily. It also takes other 
English words and compresses or shortens them. 
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YDUR FIRST COMMAND ^ 


"PRINT" is a very powerful BASIC command. 
PRINT tells the computer to write something, 
either on the screen or on paper through a 
printer. Telling the computer to PRINT in BASIC is 
like saying, "Speak to me," or "Write for me," or 
"Respond to me," in English. Someday when all 
home computers can talk, we will probably 
hove a command in BASIC called SPEAK but 
for now we must use PRINT. So let's see what 
PRINT can do. 


Turn on your computer and type the command 
word PRINT. Now you must tell the computer 
what you want it to PRINT. It will PRINT whatever 
you type next, providing you put your request 
inside double quotation marks O' ")• So enter 
this: 


c 


PRINT "HELLO" 


The word PRINT plus' 


( whatever you want PRINTed' 
is called a "PRINT 
STATEMENT." 


Now press "ENTER" or "RETURN." What did the 
computer do? You can put anything you want 
in between the quotes: spaces, words, 
numbers, symbols and punctuation. Try your 
name. Tty: 



PRINT 

or 

PRINT 


"HELLO, 

"HELLO, 


MR. SMITH" 


MOM" 



CHARACTER STRINGS < 


PRINT them on your screen. Remember to type 
PRINT first, then your string in quotes. This 
method of instructing the computer is known as 
c ommand stru cture. 

PRINT " 



^^^^ ^^Press ENTER or RETURN. 


As you've seen from the examples, the 
computer can PRINT numbers on the screen if 
told to with the PRINT command. 



Type in this PRINT statement: 


c 


PRINT "1 2 3 4" 




Remember the quotes. What is the character 
string? 1 2 3 4, that's correct. Numbers may also 
be PRINTed out of quotes. Try these: 


In computer language any series of words or 
numbers in quotes is called a "STRING." Also in 
computer language letters, numbers, symbols 
and even spaces are called "CHARACTERS." 


Here are some examples of STRINGS or, to be 
more precise, CHARACTER STRINGS. That's a 
good term in computer jargon - "character 
string." Remember it! 


Examples of CHARACTER STRINGS: 



BASIC IS FUN" 
TESTING 1 2 3" 
CHARACTER STRING" 
GOOD BYE" 


''A CHARACTER is defined ( 
a letter, number, symbol 
or space. 


( PRINT 1; 2; 3; 4 

PRINT 1, 2, 3, 4 

Notice how the first example only left one 
space between the numbers, while the second 
example put 10 spaces between the numbers. 

The reason for this is that the semicolon (;) in the 
first example instructs the computer just to 
separate the numbers, and the comma (,) in 
the second instructs the computer to space 
over 10 spaces between the numbers. Try: 


PRINT 27, 34, 4763, 1 


Make up some examples of your own and use 
commas and semicolons to mix up the 
numbers. 



6 


PRACTICAL STUFF < 


When numbers are rx>t in quotes, we can cfo 
math with them. 

Addition uses the + sign. 

Subtraction uses the - sign. 

Multiplication uses the • sign. 

Division uses the / sign. 

Type in the following examples. Remember to 
press ENTER or RETURN after each line. 


PROBLEM: 

You went to the store and bought four candy 
bars that cost 42 cents each. What change did 
you get from $5.00? The computer will give you 
the answer if you write the problem in BASIC. 
Here is how it looks: 

^ PRINT 5- (4*.42~ 



Try this one: 

You got $100 dollars for your birthday and 
bought 3 pets for $27 each. How much have 
you got left? 


'^PRINT 

14 + 8 

PRINT 

12.5-3.75 

PRINT 

6*4 

PRINT 

376*238 

PRINT 

12/3 

PRINT 

4+7-10 

PRINT 

6*3-11 

. PRINT 

4*7-1, 16/4;7*8 


A 


y 


The computer can become a good homework 
helper. Try some questions from your math 
book. 


Brackets may be used to have the operations 
performed in the order you want. The computer 
will do the calculations in brackets first, then 
use the answers it got to do the other 
calculations. Try these examples: 



Think of some more examples for yourself and 
try them. Use your math book or help your mom 
with her shopping list. 


f PRINT 27- (6*7) 

IpRINT ( (3*17)+ (18*19) )/5 



COMBINING STRINGS < 



Numbers and strings may be COMBINED in a 
PRINT statement. Here are some examples to 
type in: 


[NT "THERE ARE ■;7;" DAYS IN A WEEK' 

PRINT "IN A YEAR THERE ARE ";52;" WEEKS" 

PRINT "THEN THERE ARE ";7*52i" DAYS IN A YEAR 

Make up some more examples like this and try 
them. (How many minutes are there in a year?) 
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PROGRAMS < 


When you have several PRINT statements, they 
can be joined together by putting a number 
before each PRiNT statement line. These 
numbers are called “LINE NUMBERS." By putting 
statements together in this way you create 
v/hot is known as a “PROGRAM." A computer 
program is a series of instructions for the 
computer to carry out in the sequence given 
by the line numbers. 

Notice there is a space between the iine 
number and the PRINT statement. Strictly 
speaking ifs not required, but aimost 
everybody follows this convention because it 
makes programs easier to read. Here is a PRINT 
program to type in: 


10 PRINT "HELLO” X 

20 PRINT "THERE ARE "; 

24*60;" MINUTES IN A DAY" 
30 PRINT "GOOD BYE" J 


Whoops! The computer did not write anything 
on the screen this time. There is a reason. 
Because you used line numbers, the computer 
accepted and stored each iine (so it wouldn't 
forget what you'd told it) and waited for the 
next line you typed in. in computer terms, the 
computer put the small program in its 
"MEMORY." Now in order to get it back so we 
can use it, we must instruct the computer to 
recall it v/ith a BASIC command word. “RUN" is 
the BASiC command that tells the computer to 
go get a program from its memory and then 
do what the program telis it to do. (Of course, 
you must stili press ENTER or RETURN.) When you 
do so, the computer will “call up" the program 
and perform each instruction in the numericai 
order in which you have entered it. It will do 
what's on line 10 first, line 20 second, line 30 
third, and so on. RUN the above program. 




You can look at the program lines you have 
entered by typing the BASIC command "LIST." 
Do so now. 


The computer LISTs out the whole program. You 
can ask the computer to LIST only one line, like 
this: 


( LIST 10 

Or g number of lines, like this: 

(list 20-30 



Atari users check the conversion chart. 


Make sure you use the right SYNTAX (the right 
commands and the proper spelling) or you'll 
get a SYNTAX ERROR. 

Find the SYNTAX ERROR in this line: 


C 


10 RPINT 


"HELLO" 



You can aiso add to your program. Enter these 
lines: 


( 40 PRINT 

50 PRINT "HELLO AGAIN" 





e you pressing ENTERS 
RETURN after each line?. 


Now LIST your program again. RUN the 
program. What did line 40 do? Why do you 
think it did that? 


Program lines are generaiiy numbered 10, 20, 
30 and so on, so that if you have to, you can 
insert new lines between the existing iines 
without retyping ali the iine numbers. Type 
these iines: 


as PRINT 
25 PRINT 
60; " 


"DID YOU KNOW THAT 
"WHICH IS ";24*60* 
SECONDS" 



LiST and RUN your program again. 

DELETE <C 

You may also take out or “DELETE" litres. To do 
so, you simply type in the line number without 
any statement at all. To delete line 30, type: 

Remember to press 
ENTER or RETURN. ^ 

LIST the program now. Line 30 no ionger exists. 
Put it back in by retyping it. (Again, remember 
to press ENTER or RETURN.) 
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SAVING < 



"SAVE" is the BASIC command word that 
instructs the computer to store information 
somewhere other than its own memory. You 
can SAVE a program: 

1) on a "CASSETTE TAPE" by means of a 
"CASSETTE TAPE RECORDER," or 

2) on a "FLOPPY DISK" by means of a 
"DISK DRIVE." 

The instructions to connect your cassette 
recorder or disk drive to your computer will be in 
your owner's manual. If you are going to use a 
tape recorder, skip the yellow circle. 


Programs only need to be typed in once. Then 
you may use a program as many times as you 
want with the BASIC command RUN. There is a 
catch though; when you turn the computer off, 
the program is lost forever. A computer's 
memory is not like your brain. You can 
remember things from way back, but a 
computer only remembers as long as it has 
power going to its memory. (If you want to learn 
more about a computer's memory and how it 
works, read "Micro World," another book in this 
series.) But you can save all your hard \Mork by 
saving your program some place other than 
the computer's own memory. 


To use a disk to store 
programs, you must first 
prepare the floppy disk to 
receive information. This process is 
called "INITIALIZING" the disk (some 
computers use the term "FORMATTING"). 
Each computer has its own way of 
initializing a disk. Check your 
disk drive or computer manual 
for details. 
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SAVING < 


When you are ready to store a program on 
cassette tape or disk, you must instruct the 
computer to do so by using the BASIC 
command SAVE. This is rormally followed by a 
name for the program, in quotation marks. You 
should make sure that the name you give the 
program will help you remember what the 
program is about. We will now store the 
"minutes in a day" program we hove just done. 
Type; 



Check your computer manual's section on 
SAVEing programs in case the instructions are 
slightly different for your compxjter. 


VERIFY YOUR PROGRAM < 

After storing a program you should check that it 
was stored correctly. This is called "VERIFYing." 
When the computer VERIFYes a program it 
compares the program it has in its memory to 
the one you have just stored on tape or floppy 
disk. 

To VERIFY a program on tape, you must first 
rewind the tape to where the program starts. 

This step is not needed when using a floppy 


disk. You then use the BASIC command VERIFY 
followed by the name you gave the program. 
Type: 



For some computers this may vary. Refer to your 
ov^er's manual. 


If your equipment is working and the computer 
gives you an error message, there could be one 
of several reasons why. 

TAPE 1) There is no tape in the tape recorder. 

2) The tape is worn out. 

DISK 3) You did not initialize your floppy disk. 

4) There is rx> disk in the disk drive. 

5) The disk is worn out. 


When the program is VERIFYed properly you 
can turn the computer off. When you turn the 
computer on again you can retrieve that 
program by either rewinding the tape to where 
the program starts, or rewirxiing the tape to the 
beginning. 

TIP - This can be a very slow process, so if your 
cassette recorder has a counter, make a note 
of where each program you have saved starts 
and ends. 

If you have a disk drive, you don't have to do 
anything yet. 
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LOADing < 

Taking a program from tape or disk and putting 
it back into the computer is called "LOADing." 
The BASIC command for most computers to 
LOAD a program Is simply LOAD followed by 
the program's name In quotes. 

Once the program is LOADed into the 
computer's memory you can RUN it by typing 
RUN or you can change it by typing LIST and 
making whatever changes you want. 
Remember, if you change the listings (lines) you 
should SAVE and VERIFY the program again. 

NEW < 

If you want to get rid of a program in the 
computer's memory, you don't have to turn the 
computer off. If you're sure you won't be using a 
program again and you'd like to start a new 
one, all you have to do is type the BASIC word 
"NEW" and press ENTER or RETURN. This clears 
the computer's memory and lets you start fresh. 

We're moving right along. We now krTow these 
BASIC words and how to use them: 




ArxJ we also know these computer terms: 


CHARACTER 


CHARACTER STRING 
PROGRAM 
DELETE 
INITIALIZING 


FORMATTING 


practice doing small programs. It will not only 
be fun. It will help you remember your new 
language BASIC and its vocabulary. 

For Disk Users: 

A feature the disk drive has that the cassette 
tape does rTot is a table of the contents on your 
floppy disk. This table of contents Is referred to 
as a "CATALOG" or a "DIRECTORY." Refer to your 
disk drive manual for Information on the 
particular command to see the catalog or 
directory. 
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RJN TIMEI < 


You've learned a lot, so now we'll break for 
some fun. While you will not be familiar with all 
the BASIC words in this next program, it will be 
good practice for you to enter a program. 
Make sure that you enter all the words exactly 
or ifs SYNTAX ERROR time! 


The program is called “AGE FINDER" and it asks 
for today's date and your birth date. With this 
information it calculates your exact age in 
years, months and days. Here is the program: 



100 DIM N(12) 

110 FOR 1=1 TO 12 
120 READ N(I) 

130 NEXT I 

140 PRINT "WHAT'S TODAY'S DATE?" 
150 INPUT "DAY (1-31) ";D1 
160 INPUT "MONTH (1-12) ";M1 
170 INPUT "YEAR ";Yl 
180 PRINT "WHEN WERE YOU BORN?" 
190 INPUT "DAY (1-31) ";D2 
200 INPUT "MONTH (1-12) ";M2 
210 INPUT "YEAR ";Y2 
220 DA = D1 - D2 
230 MA = Ml - M2 
240 YA = Y1 - Y2 
250 IF DA > = 0 THEN 280 
260 DA = DA + N(M1) 

270 MA = MA -1 
280 IF MA > = 0 THEN 310 
290 MA = MA + 12 
300 YA = YA - 1 
310 IF YA / 4 < > INT (YA / 4 
THEN 330 

320 IF Ml = 3 AND M2 = 2 THEN 
DA = DA + 1 

330 PRINT "YOUR AGE IS" 

340 PRINT YA;" YEARS ";MA; 

" MONTHS ";DA;" DAYS" 


AGE FINDER < 


350 DATA 31,31,28,31,30,31 
360 DATA 30,31,31/30,31,30 



INPUT and OUTPUT 


INPUT 




"INPUT" is a computer term that refers to any 
information or "RAW DATA" a computer is given 
to work with, in the iast section we gave the 
computer words, numbers, strings and 
equations to work with. All these things are 
iNPUT. 

The computer received this informotbn through 
the keyboard; we typed it in. Since the 
keyboard is used to iNPUT information into the 
computer, it is caiied an "INPUT DEVICE." 

"INPUT" is aiso a BASIC language word, tt can 
be used in a program to teli the computer to 
expect some incoming data. Here is how INPUT 
is used in a program: 



10 PRINT"ENTER FIRST NUMBER" 
20 INPUT A 

30 PRINT"ENTER SECOND NUMBER" 
40 INPUT B 
50 C=A*B 
60 PRINT A;" TIME?V;B;"=";C 

This is called an 
INPUT statement. 


SAVE this program using "MULTIPLY" as its name. 
RUN the program and enter a number for A 
and another number for B. The program 
instructs the computer to figure out the product 
of the two numb^. 
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OUTPUT 



"OUPUT" is the answer the computer gives you 
otter it has worked on your information. If A and 
B in the MULTIPLY program were the INPUT, what 
was the OUTPUT? If you said “C" - you're right! 


CHARACTER STRINGS < 



Just OS there ore INPUT devices, there ore also 
"OUTPUT DEVICES." The screen is on OUTPUT 
device; it displays the answer information. If you 
wanted a paper copy of your OUTPUT, you 
could direct the information to another OUTPUT 
device, the "PRINTER," and it would print out 
your answer. Can you think of afX)ther OUTPUT 
device? How about your cassette recorder or 
disk drive? 

You can OUTPUT information to your tape or disk 
by SAVEing it; but you can INPUT information 
into your computer by LOADing a program 
from your tape or disk. Cassette recorders and 
disk drives are both INPUT and OUTPUT devices. 


A “CHARACTER STRING" is a series of words or 
numbers inside quotation marks, like this: 




WORDS AND OR NUMBERS LIKE 2 3 4 


Most computers allow you to use a CHARACTER 
STRING with an INPUT statement, like this: 


FOR YOU TO DO: 

Go back to the little program "MULTIPLY" and 
create a new program called "ADD" by 
retyping lines 50 and 60 to read: 

( 50 C=A+B 

60 PRINT A;"+";B;"=";C 

Now create similar programs called “SUBTRACT" 
and "DIVIDE." Are you SAVEing your programs 
as you go along? 




INPUT 

INPUT 

C=A*B 

PRINT 


"FIRST NUMBER ";A 
"SECOND NUMBER ";B 


A . " * n . o . >1 - II . 



Character string ir 
V^PUT statement 


Notice how this program does the same thing 
as the "MULTIPLY" program but is 2 lines shorter. 
Programming shortcuts like this one can come 
in very handy when you've advanced to longer 
and more complex programs. 


FOR YOU TO DO: Shorten your "ADD," 
"SUBTRACT," and "DMDE" programs by using 
strings with your INPUT statements. 
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VARIABIES < 


A "VARIABLE" is something which represents or 
stands for something else. For example, B=12. 
The variable ”B" has the value of or represents 
the number 12. 


For the moment we're going to look at 
variables that represent only numbers. These 
are called "NUMBER VARIABLES." 

But we've already used variables, haven't we? 
Take another look at our "MULTIPLY" program. 


Now PRINT the variables, like this: 


0 


PRINT XI, AA, BOOKS, BOYS 



The variables we've seen so far hove all 
represented the values of positive whole 
numbers. Variables can also have the value of 
negative numbers or decimal numbers. Here 
are some examples: 

( ) 


What happened to BOOKS? Books and boys 
both start with "BO," so when you entered the 
second BO variable, the computer thought you 
were changing the value of the first one and 
not creating a second variable at alll 
Remember this when you are making up 
variable names, the computer only reads the 
first two characters; make them different. 



Variables can be PRINTed too. Wait a minute, 
we've already done that too! That "MULTIPLY" 
program taught you more than you thought! 


Variable names, like the “B" in the example 
above, can be longer than a single character. 
(Remember what a character is? Right, a letter, 
number or symbol.) Variable names can be 
letters and numbers together, two or more 
letters, or even whole words. 


There's something you have to remember when 
you make up variable names: most computers 
are lazy things. THEY ONLY READ THE FIRST TWO 
CHARACTERS. 

Enter these variables: 


There's one other thing to remember. You 
CANNOT use BASIC language words as variable 
names. The computer would read them as 
commands and not variables and become 
terribly confused. So no BASIC words as variable 
names. 
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LOOPS Repeat Things 



A "LOOP" is a section of a program that is 
designed to perform the same set of 
instructions (or "ROUTINE") over and over again. 
The number of times the routine is repeated 
can be specified or unspecified. 

A computer wiil go on doing the same thing 
forever if you let it. That's why computers are 
given iots of boring, repetitive jobs, because 
they just don't get bored. 


FOR, TO, NEXT < 

Let's iook at another way of putting the 
computer into a ioop - but this time we'll 
specify the number of repetitions! We'li use the 
BASIC VADrds "FOR," 'TO" and "NEXT." We'll need 
a variable to count the number of repetitions 
we specify. This type of variable is known as a 
"COUNTER VARIABLE," it counts. When the 
counter stops, the loop stops. 


GOTO <T 

Like everything else with a computer, you must 
instruct it to go into a loop with a BASIC 
command word. There are several words that 
will do this; we'll look at the BASIC command 
"GOTO" first. GOTO in BASIC translates as "go 
to" in English. 


What do you think the computer will do with 
the following program? 


C 


10 PRINT"HELLO" 
20 GOTO 10 



Key it in (thaf s another way of saying type it in) 
and RUN it to see if you were right. 


Here is an exam ple: 

counter^ 
variable 


''command 
word 


commano' 
word 


c 


10 

20 


FOR 1=1 TO 10 
PRINT"! 'M IN A LOOP" 


:) 


^mSis line tells the computerT^ 
—count from 1 toJD— 




This is what you 
^ant repeated 10 times. ^ 


c 


30 NEXT 



This tells the 
computer to keep 
going till it counts to 10 




**A continuous loop is one in which the number 
of repetitions is unspecified, so the computer 
just keeps doing it, and doing it, and doing it... 


Good grief, what do you do now? It won't stop! 
You have put the computer in what is known as 
a "CONTINUOUS LOOP"**and the only ways out 
are (1) to turn off the computer, or (2) to press 
the BREAK key (or the ESCape or the RUN/STOP 
key, or CTRL and C on Apples.) 


Key in the program and RUN it. 

This next example will show you exactly what 
the counter variable is doing. Try it. 

10 FOR 1=1 TO 10 
20 PRINT I 
30 NEXT I 


FYess the BREAK key and see what happens. 
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The computer counted to 10 by ones. If you 
wanted it to, it could count by 2's or 5's or by 
anything. We tell it to do this by using the BASIC 
word "STEP." For example: 

^FOR 1 = 5 TO 50 STEP 5 ^ 

This means, for a count from 5 to 50, STEP over 
every 5 - in other words, count by 5's. 

Key in and RUN this program to see. 

( 10 FOR 1=5 TO 50 STEP 5 
20 PRINT I 

30 NEXT I 

FOR YOU TO DO: Make the computer count 
from 10 to 100 by 10's. 

STEP Backwards 

OK, lefs make the computer really do its stuff! 
Let's make it count backwardsi We'll have to 
start at a big number and count to a smaller 
one. We'll still use STEP, but how will we show the 
computer we want it to go the other way? We'll 
use a negative number after STEP. 

Remember this: With STEP, positives count 
forwards and negatives count backwards. 

RUN this example and see: 

( 10 FOR 1=10 TO 1 STEP -1 
20 PRINT I 

30 NEXT I 




DELAYS < 


The computer is a very obedient thing; if there 
are no instructions in the FOR, TO, NEXT loop, 
nothing for the computer to do, it will do just 



that - nothingl This results in a "DELAY" while the 
computer sits there and just counts. Here's an 
example: 



PRINT"WAIT 5 SECONDS 
FOR 1=1 TO 5000 
NEXT I 

PRINT"THANKS 
FOR THE REST" 



No instructbns to do 
anything, so the computer 
will only count. 


NOTE: For every second of delay you want, 
make the computer count to 1000. This method 
works on most computers up to a delay of 15 
seconds. 

FOR YOU TO DO: Hove the computer PRINT the 
word 'hello' and your name, then wait 10 
seconds and F^INT 'goodbye' to you. 
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variable 

name 


SIRING VARIABLES 


A$= "HELLO" 

K1$="ARE COMMON PETS" 
KE$="HOW ARE YOU?" 


Way back in "\OUR FIRST COMMAND" we told 
you what a character string was. Do you 
remember? "A series of words or numbers in 
quotes" - right! In the “VARIABLES" section we 
looked at number variables. We had letters and 
numbers representing the values of other 
numbers. Now we're going to look at “STRING 
VARIABLES." 

A string variable represents one or more words 
or numbers (in quotes) the same way that a 
number variable represents the value of a 
number. The computer needs to know which 
type of variable is which, so string variable 
names are followed by the dollar sign symbol 
($). This symbol is read as “string." Here are some 
examples of string variables: 


string symbol> 
so variable 
won't be taken 
for a number 
variable v 


Variable names can 
still be one or more letters, a 
[ combination of letters and numbers 
or whole words plus the string 
symbol. 


FOR YOU TO DO: Make and PRINT a string 
variable with your name in it. Call it NAMES. 


*C$="CATS AND DOGS 


Like number variables, string variables can be 
PRINTed. Try these: 


PRINT A$; " ";KE$ 


zr 


-Soys PRINT the words of AS, then right beside 
that PRINT one space, and right beside that 
PRINT the words of KES 
- What symbol tells the computer you want 
these things PRINTed “right beside" each 
other? The semicolon. 


c 


PRINT A$,KE$ 


ZT 


-Why is no space required here between the 
strings? Because the comma tells the 
computer to space over 10 spaces. 


(^PRINT C$;K1$ 
C PRINT C$ 



- Why Is IX) space required here between the 
strings? Because the space to separate the 
last word of C$ from the first word of K1 $ is 
built In at the end of C$. 
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Combined Strings Are Not Knots! 


< 


string variables can be combined. We'll use the 
same string variables . 



Z$=C$+K1$ 


new string variable 
formed by combining 
Jwo existing string variables^ 


FOR YOU TO DO: Combine A$ with your NAMES 
under the name N$. 


String variables can be used in programs the 
same way number variables are. Enter and RUN 
this program’ 

10 INPUT"WHAT IS YOUR 
NAME ";NAME$ 

20 PRINT"HELLO ";NAME$ 




Remember that a string variable is a series ot 
words or numbers in quotes. Write a program to 
INPUT today's date Oust the month and date) 
as a string variable, and PRINT it. 

LER$ and RIGHT$ < 

There are BASIC command words that allow 
you to use only part ot an existing string 
variable. 

"LEFTS" lets you take as many characters as you 
want from the left side of the string. "RIGHTS" 
lets you do the same but starts from the right 
side of the string. To see how these commands 
work, enter these strings: 



SPRING FEVER" 

I HAVE A DOG" 

IT IS TIME TO START 



To PRINT only "SPRING" from AS, you would tell 
the computer to PRINT only the first six 
characters starting from the left. This is the 
command you would use. 



tells the computer 
to start from the left 
— side 


T$ (A$,6) 


RI 


NT 


Tiyit. 


If you wanted to put the three right-most 
characters of NS into a new variable called 
PETS, this is how you would do it: 



PRINT the new variable PETS. 

Here are a few more examples to try that use 
the string variables given above. Use PRINT to 
see the results. 


'^$=LEFT$ (N$,7)+A$ 

G$=LEFT$ (D$,6)+RIGHT$ (N$,5)^ 
C$=LEFT$ (N$,6)+RIGHT$ 

(D$,9)-f" FEEDING MY"+ 

RIGHT$ (N$,4) 


FOR YOU TO DO: Using the proper commands 
and combinations ot the above strings, PRINT a 
new variable called VS that contains the string 
"IT IS SPRING" (The answer is below.) 
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MID$ < 


“MID$" is another BASIC command that lets 
you use only part of an existing string variable. 
With MID$ you specify \A/hat character you 
want to start taking characters from and how 
many you want to take. 


Using our original D$="IT IS TIME TO START", try: 



What command would PRINT “IS TIME TO" on 
the screen? (See answer below.) 

^ (0T^fr"$g)$QIW INIHd ) 


Using our original 3 string variables, A$, N$, and 
D$, enter the following: 

^ PRINT MID$(N$,3,4) ^ 

PO$=MID$ (A$, 8, 5) 

PRINT P0$ 

Q$=MID$(D$,4,3)+LEFT$(D$,3) 
+LEFT$ (A$,7)+MID$ (D$,7,4) 
PRINT Q$ 

J 

Using everything you know so far about 
manipulating string variables, create one that 
represents this senterrce: 

SPRING IS THE TIME TO START TRAINING A DOG 
(See answer below.) 

( ^ 

(S '$N) $J,HOia + „ DNINIVHJL „ 

+ (eV$a) $j.HDia+„ shi, „ + 

$aiw+(z.'$v) $i,.3ai=$Ta 

/ 

:uueq4 p euo sj 6J9 h 
sjeMSUD loejjoo Auduj 9jd ejeqi : je/v\suv 
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AlARI SreiNGS ^ 


To use string variables with an ATARI computer, 
a dollar sign must follow the variable name 
and you must specify the maximum number of 
characters that the variable will hold. 

Specifying the number of characters is done 
with the BASIC \Mord “DIM" which is short for the 
word DIMension. For example, to have a 
variable called C$ that will hold 30 characters 
you enter 


Arxother example is: 

C A$(LEN(A$)+1)=" '• 
A$(LEN(A$)+1)=KE$ 

PRINT A$ 

The result is “HELLO HOW ARE YOU". 

The ATARI can also use parts of a string, but it 
doesn't use LEF$, RIGHTS or MIDS. When 
PRINTing the seventh to ninth characters of AS 
you enter 



Now CS can hove a string assigned to it 




D 


( c$=" 


CATS AND DOGS " 


1 


You can PRINT CS like this: 
( PRINT C$ ~ 


D 


Here are some more examples of string 
variables and PRINT statements: 


DIM Kl$ (20) ,KE$ (15) ,A$ (25) 
A$=”HELL0" 

K1$="ARE COMMON PETS" 
KE$="H0W ARE YOU?" 

PRINT A$ 

PRINT A$,KE$ 

Strings can be added together. K1S is added to 
the end of CS this way: 


and add one 
character 



C$ (LEN(C$)+1)=K1$ 


If you want to take “ARE" out of AS and put 
them into XS, you need the eleventh to 
thirteenth characters, and you must use DIM to 
give XS enough space to hold these 
characters: 


C 


DIM X$ (3) 
X$=A$ (11,13) 




LEFS and RIGHTS can be simulated on the 
ATARI. To assign the three left-most characters of 
CS to XS, use this structure: 



If you want the three right-most characters of 
CS in XS, use this: 


( X$=C$ (LEN (C$)-2,LEN (C$) ) ) 



add from this 
string the following 


rS 

vingy 


^ take the 

f now put 

1 

^entire length ) 

^K1 S after that ) 

2 


3 and put them in XS 


If you take a look at how the other computers 
use MIDS you will see that it is very similar to the 
way the ATARI deals with all strings. 
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IF THEN-^gking Decisions < 


“IF" you want a program to make a decision 
“THEN" you must tell it what choices to exp>ect 
and what it should then do. To do this use the 
BASIC command words IF and THEN, 

Key in this example: 

l0 INPUT" IS TODAY YOUR 

BIRTHDAY (YES OR NO)";A$^ 
20 IF A$="YES" THEN PRINT 
"HAPPY BIRTHDAY" 

Key in “YES" and see what happens. What 
happens if you key in “NO"? Why? Nothing 
happens because the program doesn't tell the 
computer what to do if you choose “NO." Add 
this line: 


c 


30 IF A$="NO" 
"TOO BAD" 


THEN PRINT 


In IF THEN situations the computer must 
recognize your response and decide what it 
should do next based on the instructions it was 
given. 

Notice how you can jump to different lines of 
the program depending on your answers. 


it gives you the proper answer. Here is the 
program: 


/ — 

INPUT"X";X 



10 



20 

INPUT"Y"; Y 



30 

PRINT"CH00SE 1 

OR 2 

: " 

40 

PRINT"! - ADDITION 

*(X + Y) 

50 

PRINT"2 - SUBTRACTION 


(X-Y) " 



60 

INPUT A$ 



^70 

IF A$="l" THEN 

GOTO 

100 

80 

IF A$="2" THEN 

GOTO 

120 

90 

GOTO 60'»s. 



100 

Z=X+Y 



110 

GOTO 130 \ 



120 

Z=X-Y ^ 



U30 

PRINT Z 




If addition is 
’'chosen, skip lines 80 and'' 
90. This re-direction is 
called a 
“BRANCH,' 


To see what 
this line does, 
try INPUTing 3 



FOR YOU TO DO: Write a program with four 
options, whether you want to add, subtract, 
divide or multiply the two numbers 




In this next program you choose between 
adding two numbers and subtracting them. 
First, the program asks for the numbers, then it 
asks what you want to do with them, and finally 


Most computers don't require GOTO after THEN 
when a branch is made. Lines 70 and 80 could 
be retyped to look like this: 

( 70 IeF A$="l" THEN 100 

80 IF A$="2" THEN 120 J 
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RELATIONAL OPERATOR 

In the last example we had alternatives for 
the conditions A$=''1" and A$=”2". But 
variables don't always have to exactly equal 
something else. 

What happens in the following example? 

^10 INPUT"ENTER YOUR AGE";AG^ 
20 IF AGE<16 THEN PRINT"YOU 
ARE NOT OLD ENOUGH TO 
DRIVE." I 

30 IF AGE>16 THEN PRINT"YOU 
ARE OLD ENOUGH TO 
L DRIVE." J 

RUN the program. Expreriment with the numbers 
you key in. What happens if you enter your age 
as 16? Why? 

Add this line: 

IF AGE = 16 THEN PRINT"HAVE^ 
V YOU GOT YOUR LICENSE YETTy 

The equals sign, the less than sign and the 
greater than sign are known in the computer 
world as "RELATIONAL OPERATORS." Here is a list 
of relational operators and their meanings. 


RELATIONAL 

OPERATOR 

MEANING 

= 

equal to 

< 

less than 

> 

greater than 

<= 

less than or equal to 

> = 

greater than or equal to 

<> 

not equal to 


FOR YOU TO DO: Write a program that asks for 
options which include 3 or 4 of these relational 
operators: 

Here's an example to get you started: 



r 


10 INPUT"WHAT IS YOUR AGE ";A 

20 INPUT"WHAT IS YOUR BROTHER'S AGE ";B 

30 IF A>B THEN PRINT"YOU ARE OLDER THAN YOUR BROTHER" 

40 IF A<B THEN PRINT"YOUR BROTHER IS OLDER THAN YOU" 

50 IF A=B THEN PRINT"YOU MUST BE TWINS!" 
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FUNTIMEI ? 

What a lot weVe^vered. It's time for a 
break. We hove£ game for you and a 

friend. (The cori^t^ls'the referee.) One of you 
enters three wyds into the computer while the 
other has his of her eyes ciosed. The words may 
be between 4 and 10 letters long. With your 
words entered, you're ready to play. 


WORD GUESSER 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


CLS 


PLAYER CLO 


\ 


PRINT"HAVE ONE 
SE HIS EYES" 

PRINT"WHILE THE OTHER ENT 
ERS" 

PRINT"THREE WORDS. EACH M 
UST HAVE" 

PRINT"BETWEEN FOUR AND TE 
N LETTERS." 

INPUT"PRESS RETURN TO STA 
RT"; Z$ 

CLS 

INPUT"WORD ONE ";Wl$ 

IFLEN (Wl$) >10THEN>70 
IFLEN (Wl$) <4THEN1,70 
INPUT"WORD TWO ";W2$ 

IFLEN (W2$) >10THEN200 
IFLEN (W2$)<4THEN2i0 
INPUT"WORD THREE ";W3$ 
IFLEN (W3$) >10THEN230 
IFLEN (W3$) <4THEN230 
CLS 

PRINT"OK, HAVE THE OTHER 
PLAYER" 

PRINT"OPEN HIS EYES." 
PRINT"THERE ARE TEN GUESS 
ES" 

PRINT"FC)R EACH WORD." 
PRINT 

PRINT"WORD ONE STARTS WI 
TH " 

PRINTLEFT$ (Wl$, 3) 
FORI=1TO10 
PRINT"GUESS #";I 
INPUTG$ 

N = I 

IFG$OW1$THEN410 
PRINT"VERY GOOD! YOU GOT 
IT!" 

1=10 


The computer will display the first three letters of 
the first word and the person who did not enter 
them must guess the words. Ciues may be 
given by the enterer. The computer wiil ailow 
you ten guesses per word. Gopd .luck. 


This BASIC 
command word 
instructs the 
computer to 
Clear the 
Screen. 


Check. 

the Conversion 
Chart as this varies 
with some 
computers. 


410 NEXTI 
420 G=G+N 

430 PRINT"WORD TWO STARTS WI 
TH " 

440 PRINTLEF|$ (W^,3) 

450 FORI=1TO10 i 
460 PRINT"GUES»*'I"; I 
470 INP'tJ%G$ 

480 N=I ' 

4''9H:lFG$<>W2$yHEN520 
500 ?RINT"VE!(Y GOOD! YOU GOT 
IT! " 

1 = 10 
NEXTI 
G=G+N 

PRINT"WORD THREE STARTS WI 
TH " 

PRINTLEFT$ (W3$,3) 
FORI=1TO10 
PRINT"GUESS #";I 
INPUTGS 
N=I 

IFG$OW3$THEN630 
PRINT"VERY GOOD! 

IT!" 

1 = 10 
NEXTI 
G=G+N 
CLS 

PRINT"THE WORD! 

PRINT! 

PRINTfl,Wl$ 

PRINTS, W2$ 

PRINT3VW3$ 

PRINT 

PRINT"YC)U TOOK ";G;" ^UESS 
ES" 


510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 


YOU GOT 


V 


WERE. 
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SnaNGING ALONG- < 


You already know that a string is a collection of 
characters inside quotation marks. You also 
know how to combine strings by adding them 
together; and you can use the BASIC words, 
LEFTS, RIGHTS AND MIDS to take strings apart. 
There are other BASIC words that manipulate 
strings, they are known as "STRING FUNCTIONS.'' 
Lefs look at a few. 

INKEY$ < 

The BASIC word "INKEYS" allows you to go get a 
single character for use in a string. This may be 
0 response to a "YES" or "NO" question using 
“Y" for yes and "N" for no, like this: 


If this program doesn't RUN properly, check the 
BASIC conversion chart on page 60 for 
commands specific to your computer. 



You may also use INKEYS to build a delay into a 
program. For example, a program will delay 
until a key is pressed. Here's one: 


10 CLS 

20 PRINT "THIS PROGRAM DEMONSTRATES HOW TO" 
30 PRINT "MAKE THE COMPUTER WAIT UNTIL" 

40 PRINT "A KEY HAS BEEN PRESSED" 

50 PRINT 

60 PRINT "PRESS A KEY TO CONTINUE" 

70 A$ = INKEY$ 

80 CLS 

90 PRINT "THIS PROGRAM IS DONE" 


Go get a 
one-character 
answer; 
it can be 
anything. 


10 PRINT "ARE YOU 
20 A$ = INKEY$ 

30 IF A$="Y" THEN 
40 IF A$="N" THEN 
50 GOTO 20 


OLD ENOUGH TO DRIVE? Y OR N 


PRINT"YOU 

PRINT"YOU 


MUST 

MUST 


BE 

BE 


16 OR 
UNDER 




? " y‘'"*Go get a one^N 
— V^aracter answer^ 
ER" J'^ ^ 

/'''■’’’"iThas to be"^^ 
"V^^ither Y or 


OLDER 
16 



The BASIC word "LEN," short for LENgth, is used 
to count the number of characters in a string, tt 
is used like this; 



Your string doesn't even need a variable name; 
but if it doesn't have a name, it must be in 
brackets, like this: 


r 


K=LEN("THIS IS A STRING") 
PRINT K 


The next little program will count the number of 
characters in any string: 

( 10 INPUT"WHAT IS YOUR 

STRING ";S$ \ 

20 L=LEN(S$) ) 

30 PRINT"THERE ARE ";L;" J 

CHARACTERS IN ";S$ ^ 


Try "TESTING 1 2 3". Now try strings of your own. 


Write yourself a little program to add or subtract 
the number of characters in 2 strings. 
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ASCII American Standard Code 
for Information interchange 


To the computer, every character has a 
numerical value. When you key in the ietter A in 
a string, the computer reads it as 65. it reads B 
as 66, C as 67 and so on. The computer also 
reads numbers in a string, but again it reads 
the vaiues it has already assigned to the 
numbers. Zero (0) is 48, 1 is 43, 2 is 50 and on it 
goes. 

If you would like to know the vaiue the 
computer has assigned to any character in a 
string, you can find out by using the BASiC string 
function "ASC," ASC is the BASIC short form for 
ASCII (pronounced ASH-KEY or ASK-KEY), which 
stands for the "American Standard Code for 
information Interchange." These values are 
standard to most computers. 


Now PRINT B$. 


X=-6 

A$="THE ANSWER 
D$=A$+STR$ (X) 
PRINT D$ 


IS 


STR$ <T 

The BASIC word "STR$," short for STRing plus the 
string symbol, functions the opposite to VAL. 

STR$ changes a number into a number string, 
like this: 


C=23 
t$=STR'$ (C 


new number 
string variabie 
^ created . 


This is the 
name of the number 
variable to use. 


The BASIC word "VAL," short for VALue, is a string 
function that assigns a numericai value to a 
number string Here's how it works: 


SC$="8010" 
PRINT VAfc (S C$) 

"Give th^ 
numericai value 
of a number 
string.. 


S=VAL (SC$) *10 
PRINT S 


the number 
^string to 


Here's a little example to show you how VAL is 
used: 


L0 INPUT"WHAT'S YOUR AGE 
IN YEARS ";A$ 

,20 PRINT"Y0U ARE AT LEAST " 

; 12*VAL (A$) ; " MONTHS 0LD> 
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character numbers. 


CHARACTER 

ASCII 

NUMBER 

CHARACTER 

ASCII 

NUMBER 

CHARACTER 

ASCII 

NUMBER 

space 

32 

4 

52 

H 

72 

I 

33 

5 

53 

I 

73 

If 

34 

6 

54 

J 

74 

# 

35 

7 

55 

K 

75 

$ 

36 

8 

56 

L 

76 

% 

37 

9 

57 

M 

77 

& 

38 

• 

• 

58 

N 

78 

1 

39 


59 

0 

79 

( 

40 

< 

60 

P 

80 

) 

41 

= 

61 

Q 

81 

★ 

42 

> 

62 

R 

82 

+ 

43 

7 

63 

S 

83 


44 

0 

64 

T 

84 

- 

45 

A 

65 

U 

85 


46 

B 

66 

V 

86 

/ 

47 

C 

67 

W 

87 

0 

48 

D 

68 

X 

88 

1 

49 

E 

69 

Y 

89 

2 

50 

F 

70 

Z 

90 

3 

51 

G 

71 




We said that the ASC command will return assignments in different computers. Check your 

numbers from 0 to 255. 'Where are all the rest?' owner's manual to see if the rest of the numbers 
you ask. The unlisted numbers have various are listed for your computer. 
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CHR$ < 

The BASIC word that does the opposite of ASC is (one at a time) by giving the computer their 

"CHR$." CHR$ lets you work with characters ASCII numbers. Enter these lines: 



You can use CHR$ to see the characters not 
listed in the ASCII reference chart. For example: 


c 


PRINT CHR$ (93) 




String functions allow the easy manipulation of 
your character strings. Practice using them,- 
they come in very handy in more advanced 
programming. 


SWINGING THE AIARI ALONG? 


ATARI computers don't use the command 
INKEYS to get a one-character response; 
instead they use the BASIC word "GET." Before 
GET can be used though, this line must appear 
in your program: 


An actual GET statement looks like this: 
^ 30 GET#1,A 


) 


10 OPEN#1,4,0>"k7” 




The key that is pressed will be assigned to a 
variable. As with all variables on the ATARI, this 
variable must first be DIMensioned: 


C 


20 DIM X$ (1) 


) 


The variable used with the GET line is the 
numeric variable A, not X$, because the ATARI 
computer assigns to the variable the ASCII 
value of the response key. Now to put this ASCII 
value into your prepiared string (see line 20) use 
this line: 

( 40 X$=CHR$(A) ^ 
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DATA and READ Statemenis <C 


More Ways To Store Information. 

I DAIA Statements 

Variables and strings both store information for 
later use. Arvather method of storing information 
is to use the BASIC word “DATA." A DATA 
statement can store lots and lots of information 
until it is needed. Quite often the information is 
not needed all at once, or it is information that 
is only needed once. Lists of information are 


often stored this way because each piece of 
data can be taken and used separately, as 
needed. Computer quizzes, for example, make 
extensive use of DATA statements. 

DATA statements are set up with commas 
between the various pieces of information, like 
this: 


10 DATA FROG 


20,5 


) 


Use LIST to see the DATA statement. This one 
holds 3 pieces of information. 

Notice in line 10 above that DATA statements 
hold strings as well as numbers. These strings 


don't even need quotes unless there are 
spaces or punctuation in them. Here are some 
more examples of DATA statements with strings: 


50 

60 

70 

80 


DATA MICE, CAT, DOG 

DATA HOT, "SUNNY AND DRY ", COLD , "WET AND MILD" 

DATA CARS, 10, TRUCKS, 5 

DATA "BUMPER STICKERS" , 100 , WIPERS , 2 




READ Statements 

You've used your DATA statements correctly 
and you've got all your information stored 
neatly away. Now how do you get it out to use 
it? Simple; you use the BASIC word "READ." Here 
is an example of a READ statement: 

100 READ Z$,Y,X ^ 

READ is followed by variables separated by 
commas the same way DATA was followed by 
pieces of information between commas. If 


you've figured out that their structures are 
related, you're right! 

READ takes its first variable, in this case Z$, and 
goes looking in the first available DATA 
statement for something to put in that variable. 
Here READ would hove found DATA line 10 first 
and would have assigned to Z$, the string of 
"FROG." READ would then take its second 
variable and assign it the value of the second 
piece of information in the DATA statement, 
and so on until it had used up or filled all of its 
variables. 

Following the example, what would X be? If 
you said “5" from line 10, you're right. 
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READ Statements 

When the READ statement is assigning values 
to variables and runs out of usable DATA in one 
line, it automatically jumps to the next DATA 
statement and keeps going. 

READ uses both number variables and string 
variables, but the variables and information 
must match up and be of the same type or 
you'll come up with a TYPE MISMATCH ERROR. 

To see how READ works with DATA enter and 
run this short program: 


100 

DATA CATS, 10 

120 

READ AS 

130 

PRINT A$ 

140 

READ X 

150 

PRINT X 


Here's a slightly longer one: 



Remember to READ numbers into number 
variables and strings into string variables! 


ANIMAL GUESSER < 


Now it's time for a quiz program using READ computer will give you clues. Here's the 

and DATA. You must guess the right animal. The program: 



10 FOR I=1T09 
20 READ CLUE$, ANIMALS 
30 PRINT CLUES 

40 INPUT "WHAT IS THE ANIMAL ";REPLYS 

50 IF REPLYS=ANIMALS then PRINT "VERY GOOD, YOU'RE RIGHT" 

60 IF REPLYSOANIMALS THEN PRINT "WRONG - THE ANIMAL IS 
ANIMALS 
70 NEXT I 

80 DATA "A HORSE IN PY JAMAS ", ZEBRA IT LOVES HONEY ", BEAR ," IT 

CHASES MICE", CAT 

90 DATA "IT CHASES CATS", DOG, 

"IT EATS CHEESE", MOUSE, "IT 
EATS CARROTS" , RABBIT 
100 DATA "IT EATS WORMS", BIRD, 

"IT BUILDS DAMS", BEAVER 
110 DATA "IT LIVES IN WATER", 

FISH 


In this program the DATA statements were at 
the end, but DATA statements can be placed 
anywhere in a program; the computer will 
always find them. 


If you need all your information repeated, you 
can use the same DATA statements over again. 
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The BASIC word RESTORE sets this up with the 
computer. Add these lines to ANIMAL GUESSER 
and it will start over again using all the same 
DATA. 

RANDOM NUMBERS < 


C 


120 RESTORE 
130 GOTO 10 




A random number is a number that is chosen 
for no reason If someone said to you, "Pick a 
number," you would quickly say the first 
number that came into your head. There would 
hove been no reason for its selection, you just 
needed a number. 


Computer games and many other types of 
programs often use random numbers. The 
computer does the choosing. "RND," a 
contraction of the English word RaNDom, is the 
BASIC command word to produce random 
numbers. 

To have the computer select and PRINT a 
random number between one and four, you 
would type; 


C 


PRINT RND (4) 


Some computers 
use a slightly different 
/command stmcture with RND 
CHECK WITH THE 
CONVERSION CHART 
to see if your computer 
does it differently. 



Say you want to flip a coin but you don't have 
a coin, you only have a computer. Well, get the 
computer to simulate coin flipping using the 
RND function. Let's call the number 1, heads 
and 2, tails. This line will flip your "coin": 


PRINT RND(2) 



FOR YOU TO DO: Write a line to simulate the 
rolling of a six-sided die. 


(9)GNa JLNIHd 


Aren't random numbers simple? You can use 
them when you write programs for games of 
chance, like the many card and dice games 
you've seen on computers. These games use 
the RND function. And many computer video 
games use RND for the unpredictable 
movement of aliens and other creatures. 



( 


Answer: 
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FUN TIME < 


CAPITALS TESTER < 


Can you believe how much you've 
learned so far! INPUT allows almost any 
information to be entered during a program. 
Variables are used to manipulate information. 
Loops force the computer to do the same thing 
as often as required. String variables let you 
work with words. String functions let you work 
with strings. IF and THEN give the computer a 
way to make decisions. READ and DATA make 
use of all kinds of information. The computer will 


even pretend to roll a die for you with RND. 

Isn't that great? 

Well, learning is fun, but games are more fun! 
Let's do a game. The program CAPITALS TESTER 
given here uses most of these BASIC words and 
functions. The program will give you a 
Canadian province or an American state and 
you have to tell the computer the capital city. 
Good luck! 


Remember 
to check the 
Conversion Chart 
for things like CLS, 
INKEYS and 
random numbers. 


100 

150 


ATARI users do 
not type in quotation 
^marks in DATA statements . 
lines 320 to 550^ 


10 CLS 
15 RESTORE 

20 PRINT "CHOOSE ONE:" 

30 PRINT "1-CANADIAN PROVINCES" 

40 PRINT "2-AMERICAN STATES" 

50 R$=INKEY$ 

60 IF R$="1"THEN 
70 IF R$="2"THEN 
80 GOTO 50 
100 N=RND(12) 

110 GOTO 200 
150 N=RND(50)+12 
200 FOR I=1T0N 
210 READ SP$,CAP$ 

220 NEXT I 

230 IF R$="1"THEN PRINT "THE PROVINCE 
IF R$="2"THEN PRINT "THE STATE IS 
INPUT "WHAT IS THE CAPITAL ";AN$ 

IF AN$=CAP$ THEN PRINT "GOOD WORK, YOU'RE RIGHT" 

IF AN$OCAP$ THEN PRINT "WRONG, THE ANSWER IS ";CAP$ 
INPUT "DO YOU WANT TO PLAY AGAIN? (YES OR NO) " ; A$ 

IF A$="YES" THEN 10 
IF A$="N0" THEN END 


240 

250 

260 

270 

280 

290 

300 


IS ";SP$ 
";SP$ 


310 GOTO 280 




This BASIC word 
tells the computer to 
the program. 


Em) 


320 DATA YUKON, WHITEHORSE, "NORTHWEST TERRITORIES" , YELLOWKNIFE 
330 DATA "BRITISH COLUMBIA" , VICTORIA , ALBERTA , EDMONTON , 
SASKATCHEWAN 

340 DATA REGINA, MANITOBA, WINNIPEG, ONTARIO, TORONTO, QUEBEC, "QUEBEC 
CITY" 

350 DATA NEWFOUNDLAND, "ST JOHN ' S" , "NOVA SCOTIA" , HALIFAX, "NEW 
BRUNSWICK" 

360 DATA FREDERICTON, "PRINCE EDWARD I SLAND ", CHARLOTTETOWN , ALABAMA 
370 DATA MONTGOMERY,ARIZONA, PHOENIX, ALASKA, JUNEAU, ARKANSAS 
380 DATA "LITTLE ROCK" , CALI FORNI A , SACRAMENTO ,COLORADO , DENVER 
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390 DATA CONNECTICUT, HARTFORD, DELAWARE, DOVER, FLORIDA 
400 DATA TALLAHASSEE, GEORGIA, ATLANTA, HAWAII , HONOLULU, IDAHO, BOISE, 
ILLINOIS 

410 DATA SPRINGFIELD , INDIANA, INDIANAPOLIS , IOWA, "DES MOINES" 

420 DATA KANSAS, TOPEKA, KENTUCKY, FRANKFORT, LOUISIANA, "BATON ROUGE" 
430 DATA MAINE, AUGUSTA, MARYLAND, ANNAPOLIS, MASSACHUSETTS, BOSTON 
440 DATA MICHIGAN, LANSING, MINNESOTA, "ST PAUL" , MISSISSIPPI , JACKSON 
450 DATA MISSOURI , "JEFFERSON CITY ", MONTANA , HELENA , NEBRASKA 
460 DATA LINCOLN, NEVADA, "CARSON CITY", "NEW HAMPSHI RE" , CONCORD 
470 DATA "NEW JERSEY" , TRENTON, "NEW MEXICO" , "SANTA FE","NEW YORK" 
480 DATA ALBANY, "NORTH CAROLINA" ,^EIGH , "NORTH DAKOTA" ,BI SMARCK 
490 DATA OHIO, COLUMBUS, OKLAHOMA, "OKLAHOMA CITY" , OREGON, SALEM 
500 DATA PENNSYLVANIA, HARRISBURG, "RHODE ISLAND" , PROVIDENCE 
510 DATA "SOUTH CAROLI NA" , COLUMBIA , "SOUTH DAKOTA" , PIERRE 
520 DATA TENNESSEE, NASHVILLE, TEXAS, AUSTIN, UTAH, "SALT LAKE CITY" 
530 DATA VERMONT ,MONTPSLI ER , VI RG I NI A , RICHMOND , WASHINGTON , OLYMPIA 
540 DATA "WEST VI RGINI A" , CHARLESTON ,WISCONS IN , MADI SON , WYOMING 
550 DATA CHEYENNE 


GRAPHICS < 


"GRAPHICS" is the name given to the pictures 
and patterns you've ail seen on computer 
screens. Every computer has its own way of 
producing graphics. Some computers draw 
very detaiied images using tiny dots that are 
cailed “PiXELS." Take a close look at your 
computer screen right now. Can you see the 
smali dots that make up the letters and 
numbers? These are the pixels. Computers that 
make pictures using the dots are said to use 
"HIGH RESOLUTION GRAPHICS." But some 
computers draw pictures using BLOCKS of 
pixels. We'll look at those later. 

When you put letters and numbers on the 
screen, your computer is said to be in "TEXT 
MODE," and when you are drawing pictures 
you are in "GRAPHICS MODE." Some computers 
with hi-res (You're a real computer buff when 
you use short forms!) have several different 
graphics modes. The difference between them 
usually has to do with the detail of the pictures 
and the number of colors you can use. You 
must instruct the computer as to which rnode 
you want. Some typical BASIC commands for 
these are: "GRAPHICS," "GR," and "HGR." Once 
you have selected a mode you are ready to 
begin drawing. 

There are a certain number of pixels on your 
screen, there are so many across in each row 
and there are just so many rows. You select 


which pixels you want to use in your drawing by 
calling for them by number. You need two 
numbers to call up one pixel; one number 
shows the row that the pixel is in and the other 
shows what column it is in. These two numbers 
are called "CO-ORDINATES." Check your 
owner's manual for the numbers you would use 
on your computer. (X is used to reference 
which row and Y is used to reference which 
column. You use them as X,Y. When you put in 
your own numbers it could be 10,4. That would 
be the tenth pixel over from the left in the fourth 
column). 

The BASIC command to turn on or light up a 
pixel is "PLOT" (or sometimes "SET") followed by 
the co-ordinates of the desired pixel. On certain 
computers you must choose a color before you 
can PLOT a pixel. Each color your computer 
uses is also given a number reference. Your 
owner's manual will tell you more about the 
colors you can use. But often the command for 
choosing a color is simply "COLOR=" followed 
by the number reference of the color you want. 

Lef s see what we've learned so far with a little 
program. Actually four are given; the first is for 
Apple and Adam computers, the second is for 
Atari computers, and the last two are for Radio 
Shack TRS-80 Color Computers. We'll be 
drawing or PLOTting pixels. 


APPLE and ADAM < 


ATARI 






10 

INPUT 

"X (0-279) ";X1 

20 

INPUT 

"Y (0-159) ";Y1 

30 

INPUT 

"COLOR (0-7) ";C 

40 

HGR 


50 

HCOLOR 

;=C 

60 

HPLOT 

XI, Y1 






Type in "TEXT" to return to text mode. 


10 PRINT"PIXEL CO-ORDINATES 
20 PRINT”X (0-159)" 

30 INPUT X 
40 PRINT"Y (0-79)" 

50 INPUT Y 

60 PRINT"COLOR (0-255)" 

70 INPUT C 
80 GRAPHICS 7 
90 COLOR C 
100 PLOT X,Y 


Type in GRAPHICS 0 to return to text mode. 
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TRS-80 

COLOR COMPUTER 


r 


K 


10 INPUT"X (0-63) ";X 
20 INPUT"Y (0-31) ";Y 
30 INPUT"COLOR (0-7)" 
40 CLS (0) 

50 SET(X,Y,C) 

60 GOTO 60 


;C 


Hit the BREAK key to return to text mode. 




J 


TRS-80 COLOR 
COMPUTER WITH 
EXTENDED BASIC 


A 10 INPUT "X (0-255)";X \ 

20 INPUT"Y (0-191) ";Y 
30 INPUT"COLOR (0-7) ";C 
40 PMODE 3,1 
50 SCREEN 3,1 
60 PCLS 

70 PSET (X,Y,C) 

^ 80 GOTO 80 J 


Hit the BREAK key to return to text mode. 


RANDOM FOINTS < 


if you don't wont to figure out which pixeis to 
iight up, you con hove the computer pick the 
points and coiors itseif. ft wiii use its random 
functbn to seiect the number co-ordinates and 
coiors. Here are some pixel drawing programs 
using random numbers. Remember to type in 
NEW before you start these. 


APPLE and ADAM < 



TRS-80 COLOR 
COMPUTER WITH 
EXTENDED BASIC 


r 


K 


10 X=RND(256)-1 
20 Y=RND(192)-1 
30 C=RND(8)-1 
40 PMODE 3,1 
50 SCREEN 3,1 
60 PCLS 

70 PSET (X,Y,C) 
80 GOTO 80 




J 


ATARI < 


30 X = INT (RND (1) *159 + 0. 5) 
50 Y=INT (RND (1) *79+0. 5) 
70 C=INT (RND (1) *255+0. 5) 
80 GRAPHICS 7 
90 COLOR C 
100 PLOT X,Y 


TRS-80 

COLOR COMPUTER 


^ 10 X=RND(64)-1 
20 Y=RND (32)-l - 
30 C=RND(8)-1 
40 CLS (0) 
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LINES 


Most computers can draw lines with these 
BASIC commands: "PLOT," "LINE" or “DRAW." If 
your computer uses PLOT or LINE, you follow the 
command with the starting co-ordirTote, 
foliowed by the word “TO" (or perhaps a dash; 
check your owner's manual) and finally the 
ending point co-ordinates. For computers that 
use DRAW (or possibly DRAWTO), you must first 


use PLOT to place the starting co-ordinate. 
DRAWTO is followed by the ending co- 
ordinate. 

In these next three programs, you enter the start 
and end co-ordinates of a line and the 
computer draws the line. 


APPLE and ADAM < 


ATARI 




flQ PRINT "STARTING POINT CO-^ 


^10 PRINT"STARTING POINT CO-0^ 

ORDINATES" 


RDINATES" 

20 INPUT "X (0-279) ";X1 


20 PRINT"X (0-159)" 

30 INPUT "Y (0-159) ";Y1 


30 INPUT XI 

40 PRINT "ENDING POINT CO-OR 


40 PRINT"Y (0-79)" 

DINATES" 


50 INPUT Yl 

50 INPUT "X (0-279) ";X2 


60 PRINT"END POINT CO-ORDINA 

60 INPUT "Y (0-159) ";Y2 


TES" 

70 INPUT "COLOR (0-7) " ; C 


70 PRINT"X (0-159)" 

80 HGR 


80 INPUT X2 

90 HCOLOR=C 


90 PRINT"Y (0-79)" 

t 100 HPLOT XI. Yl TO X2.Y2 j 


100 INPUT Y2 

^ ^ 

110 PRINT"COLOR (0-255)" 


The TRS-80 COLOR COMPUTER without 
extended BASIC has tTo command to draw 
lines. 


TRS-80 COLOR 
COMPUTER WITH 
EXTENDED BASIC 


120 INPUT C 
130 GRAPHICS 7 
140 COLOR C 
150 PLOT XI, Y1 
160 DRAWTO X2,Y2 


Type in GRAPHICS 0 to return to normal. 


^0 PRINT"STARTING POINT CO-0^ 
RDINATES" 

20 INPUT"X (0-255)";Xl 
30 INPUT”Y (0-191) ";Y1 
40 PRINT"END POINT CO-ORDINA 
TES" 

50 INPUT"X (0-255) ";X2 

60 INPUT"Y (0-191) ";Y2 

70 INPUT"COLOR (0-8) ";C 

80 PMODE 3,1 

90 SCREEN 3,1 

100 PCLS 

110 COLOR C,0 

120 LINE (XI, Yl) - (X2,Y2),P 
SET 

130 GOTO 130 


FOR YOU TO DO: Write a program that uses 
random numbers to select the starting and 
ending co-ordinates and the colors of your 
lines. 
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Hi-res 


Hi-res graphics are useful in many ways: bar 
and line graphs can be drown to show 
comparisons of data. The detailed action 


graphics of video games are often drawn this 
way, and design engineers can draw 
sophisticated cars, planes, bridges and much 
more. 



These are the line changes required for random 
line and color selection: 

zx'zyL oxMvaa 

091 

0£T 0X00 0€I 
XaSdMZA'ZX) - 

(TA'IX) 3NIT 0ZT 
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TA'TX xond 
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saod 00T 

D=a010DH 

06 
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0t^T 

T'c Nsaaos 06 
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08 
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0ei 
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(s'0+^*(T)aNa)XNi=o 

0Z. 
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09 
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0e 
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OTHER GRAPHICS < 


Does your computer not hove hi-res graphics 
commands? It can still draw pictures with 
regular characters. Just as there are rows 
and columns of pixels on your screen, there are 
also co-ordinates for characters. Each of these 


screen positions has a number. Look for these in 
your owner's manual under "SCREEN MEMORY 
MAPS." Every character that your computer can 
draw also has a number. Again, look in your 
manual, this time under "CHARACTER SBS." 


POKE < 

Using the BASIC command "POKE," you can 
put any character you want anywhere on the 
screen. If you have a Commodore computer 
(Commodore 64, VIC 20, or PET) clear your 
screen and try one of these examples: 


( POKE 1024,160 
( POKE 7680,160 
( POKE 4096,160 
( POKE 



CM 

VIC 20 with less than 8K of merrTory 
VIC 20 with 8K or more memory 
PET 


Unless you're using a PET, you won't see 
anything yet. The other computers also need a 
color to be put on the screen. The place you tell 
it to put the color must be the same place you 
have put your character. The position used 
above was the first screen position, so the color 


position must also be the first. As with hi-res 
graphics, each color has a number. Check your 
owner's manual for these numbers. 

Here are the POKE statements to enter a color 
into the first color position: 


G 


POKE 55296,2 


POKE 38400,2 

C 


POKE 37888,2 



C64 

VIC 20 with less than 8K of memory 
VIC 20 with 8K or more memory 


In the next program you may enter any screen 
position number, character number, color 
position and color number. It then POKEs the 
character into the screen position and the color 
into the color position. Following the program is 
a table of the numbers to enter for the various 
Commodore computers. 


^ 10 INPUT"POSITION"; P 
20 INPUT"CHARACTER";CH 
30 INPUT"COLOR POSITION";C 
50 INPUT"COLOR";CO 
60 CLS 

70 POKE P,CH 

^ 80 POKE C,CO 
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TABLE OF COMMODORE SCREEN AND COLOR POSITIONS 

COMPUTER 

START OF 

SCREEN 

POSITIONS 

END OF 
SCREEN 
POSITIONS 

START OF 

COLOR 

POSITIONS 

END OF 
COLOR 
POSITIONS 

C64 

1024 

2023 

55296 

56295 

VIC 20 with 
less than 8K 
memory 

7680 

8185 

38400 

38905 

VIC 20 with 
8K or more 
memory 

4096 

4601 

37888 

38399 

PET 

32768 

33767 

the PET has no color 


PEEK < 

The BASIC command word "PEEK" is the 
opposite of POKE. PEEK is used to see what 
character is in a certain position on the screen 
or what color is in a color position. When you 
PEEK a screen or color location, you will get a 
number; this number will correspond to the set 


of numbers that you used with POKE. 

If you have a Commodore computer, try one of 
the following lir^es to see the number value of 
the first character on the screen: 


r 


PRINT PEEK(1024) 


^PRINT PEEK(7680) 
PRINT PEEM409^) 
^PrTnT^EEM3^6^ 




C64 

VIC 20 with less than 6K of memory 
VIC 20 with 8K or more of memory 
PET 


Positions to be PEEKed must always be in round To find the number value of the first color 
bracketsi position on the Commodore 64 or VIC, key in 

You probably saw a value of 32. 32 is the value one of these lines: 

for a space on Commodore computers. 

^RINl^EE^^529^^!r^^^^^^ . .C64 

(PRIN1^EEK(38400) ^ .. -J VIC 20 with less than 8K of memory 

^PR^T^PEEt^^788^^ ^^^^^^^^J — VIC 20 with 8K or more of memory 


POKE and PEEK are not only used with graphics; 
they can do many things for you. The extent of 
\AThat they can do depends on which 
computer you are using and the values you 


give them to work with. Look in your owner's 
manual for more information on how to use 
POKE and PEEK in your computer. 
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LOOP d’LOOP < 


WeVe covered a lot of ground so for, so maybe 
you should go back and review LCXDPS, 
because now we're going to build on that 
knowledge. 

It is possible to place loops within loops. "Why?" 
you ask. With 2 counters ticking away, you can 
keep track of 2 different things at the same 
time. 

Putting a loop inside another loop is known as 
"NESTING." The first thing you have to do is give 
each loop a separate counter or the 
computer will really become confused. The 
inner loop is the nested loop. Enter and RUN this 
example: 


10 FOR I=1T05 
20 FOR J=1T07 
30 PRINT "I=" 
40 NEXT J 
50 NEXT I 



This next program is a practical example of 
nested loops; it simulates a stop watch. 

( 10 FOR M=0TO59 
20 FOR S=0TO59 
30 PRINT 
40 NEXT S 
50 NEXT M 

To make your stop watch tick off real seconds, 
add these lines: 



( 35 FOR 1=1 TO 1000 
37 NEXT I 
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Remember 
to hit the 
BREAK key 
to get out 
of the program 


Now try these 
examples: 


ATARI 


c 


ATARI useTs''"^ 
see page60^__^ 

IS FUN" 


FOR I=1T05 
PRINT 

FOR J=1T0 5 
PRINT SPC(J) "BASIC 
NEXT J 

NEXT I _ _ 

This is a 

BASIC word short for 
^SPaCe. it tells the computer to^ 
sjnsert as many spaces as are/ 
in the brackets. 


10 

20 

30 

40 

50 

60 

70 


GRAPHICS 7 ' 

FOR Y=0 TO 79 

FOR X=0 TO 159 

COLOR INT (RND (1) *255 + 0. 5) 

PLOT X,Y ^ 

MPYT Y /^Remember 
NEXT X ^ to key in 

NEXT Y [ graphics 0 to 
return to text 
mode. 


APPLE and ADAM < 


10 FOR I=1TO10 
20 FOR J=1T06 

30 PRINT SPC (J) ; "COMPUTERS" 
40 NEXT J 

50 PRINT "...ARE FAST" 
60NEXTI 

If you have graphics commands, try one of 
these programs: 


TRS-80 

COLOR COMPUTER 


10 CLS (0) 

20 FOR Y=0 TO 31 
30 FOR X=0 TO 63 
40 C=RND(8)-1 
50 SET(X,Y,C) 

60 NEXT X 
70 NEXT Y 
80 GOTO 80 


HGR 

FOR Y=0TO159 
FOR X=0TO279 

HCOLOR=INT (RND (1) *7 + 0. 5) 
HPLOT X,Y 

NEXT X Remember 

MPYT’ V t to type in TEXT 
NEXT Y f to get out of the 

graphics mode^ 

TRS-80 COLOR 
COMPUTER WITH 
EXTENDED BASIC 

10 PMODE 3,1 
20 SCREEN 3,1 
30 PCLS 

40 FOR Y=0 TO 255 
50 FOR X=0 TO 191 
60 C=RND(8)-1 
70 PSET(X,Y,C) 

80 NEXT X 
90 NEXT Y 
100 GOTO 100 
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ARRAYS < 


An “ARRAY" is a group of related pieces of 
information stored under one variable name. 

Q 


174 

365 

.001 

- 10,000 

1 

2 

3 

4 


Arrays hove names, like other variables, but 
they also have “SUBSCRIPTS." A subscript, 
sometimes called an “INDEX," tells the 
computer exactly which piece of information is 
required. Subscripts refer to information, or 
information is "REFERENCED" by subscripts. 



What is referenced by 0(1)? The first piece of 
information or the first “ELEMENT" in the list. 




You can use arrays to store information. But how 
much information? That's the first thing your 
computer will want to know too. You tell it how 
much by using the BASIC word “DIM," short for 
DIMension. For example, for an array called "C" 
that will hold twelve pieces of information (or 12 
"ELEMENTS"), enter 


Suppose you wanted the seventh element In C 
to be 27. You would tell the computer 



If you don't give a value to any of your 
elements, the computer will. It will give a value 
of zero to any unassigned elements. See your 
computer do this by typing: 

/PRINT C(l) ,C(2) ,C(3) ,C(4) , X 
f C(5) ,C(6) ,C(7) ,C(8) , ) 

C(9) ,C(10) ,C(11) ,C(12y 
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The seventh element was 27, just like you told 
the computer above. 



Using ARRAYS < 


Arrays are useful when you hove a list of similar 
things to keep track of. If you wanted to keep a 
list of your family's birth years, an array would be 
a good thing to keep them in. Yes, it's time for 
another program. This one lets you enter three 
birth years in an array. Then it asks for the 
current year. With this information it calculates 
the person's age. Here is the program: 

^ 

10 DIM BY (3) 

20 INPUTa"BIRTH YEAR NUMBER 

1 ";BY(1) 

30 INPUT "BIRTH YEAR NUMBER 

2 ”;BY(2) 

40 INPUT "BIRTH YEAR NUMBER 

3 ";BY(3) 

50 INPUT "PRESENT YEAR ";Y 

60 PRINT "THE CURRENT AGES 

ARE : " 

70 PRINT Y-B Y (1) ,Y-BY (2) , 
Y-BY(3)^^,^ — atari users' 

V see page 60. 

Arrays are easily handled with loops. Since the 
only difference in the three INPUT lines is the 
subscript, a loop could count through them. 
Here's the same program using a loop: 



FOR YOU TO DO: Modify the program to accept 
5 birth years and then PRINT the 5 ages. 

These are the lines and changes you would 
have to make: 

S 01. i=i aod 08 

S 0J< T=l aoj 0Z 

(S)Ag MIG 0T :a3MSNV 

Soy you're going to round up all your friends 
and enter all their birth years, but you don't 
know how many friends you're going to be able 
to find on such short notice. Don't worry, you 
can set up the program to accept as many 
birth years as you may need. Simply add this 
line as lirTe 5: 

( 5 INPUT "NUMBER OF BIRTH \ 
YEARS ";N / 

And change lines 10, 20 and 80 to read: 


10 DIM BY(N) 

20 FOR 1=1 TO N 
80 FOR 1=1 TO N 





r L0 DIM BY(3) 

20 FOR 1=1 TO 3 
30 PRINT "BIRTH YEAR #";I 
40 INPUT BY(I) 

50 NEXT I 

60 INPUT "CURRENT YEAR "; 
70 PRINT "THE AGES ARE:" 
80 FOR 1=1 TO 3 
90 PRINT Y-BY (I ) , 

100 NEXT I 




ATARI users 
see page 60 


Now you can amaze as many friends as you 
can find. 
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SUBROUTINES < 

A subroutine is a part of a longer program; it 
does one thing. It could actually be a short 
program on its own. Subroutines can be 
entered once and used as many times as you 
want. They do simple and frequently needed 
tasks. 

You may have a lot of "YES" and "NO" 
questions in a program. By using a subroutine 
you can get answers to all the questions \Arith 
one INPUT or INKEYS. This next program, SILLY 
INTERVIEW, uses an INKEYS subroutine. 

SILLY INTERVIEW 

< 



5 PRINT"ANSWER EACH QUESTION Y 
10 PRINT "DO YOU LIKE TV?" 

1000 
"DO YOU 
1000 
"DO YOU 
1000 
"DO YOU 
1000 
"DO YOU 
1000 
"DO YOU 
1000 

"THANKS FOR THE INFO!" 


FOR YES, N FOR NO" 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
150 
1000 


GOSUB 
PRINT 
GOSUB 
PRINT 
GOSUB 
PRINT 
GOSUB 
PRINT 
GOSUB 
PRINT 
GOSUB 
PRINT 
END 

A$=INKEY$ 


LIKE TENNIS?" 
LIKE HOCKEY?" 


LIKE SWIMMING?" 


LIKE SINGING?" 


LIKE COMPUTERS?" 


1010 IF A$0"Y" 
1020 RETURN 


AND A$0"N" THEN 1000 


Are you 

f checking the > 
Conversion Chart to find 
any changes for - 
V your computer? y 



SUBROUTINES < 

The BASIC word "GOSUB" directs the computer 
to your subroutine. Then otter the instructions of 
the subroutine hove been performed, the BASiC 
word "RETURN" sends the computer bock to the 
main program, to the line immediateiy after 
the GOSUB. Here's another exampie: 


^10 PRINT "A SUBROUTINE 
DEMONSTRATION" 

20 GOSUB 1000 
30 IF R$O"Y"THEN10 
40 END 

1000 PRINT "ARE YOU FINISH 
ED? (TYPE Y OR N) " 
1010 R$=INKEY$ 

^ 1020 RETURN 


How does the second program work? Line 10 
PRINTS a message. In line 20 GOSUB sends the 
computer to iine 1000. Line 1000 is where the 


subroutine starts. There a question is asked. Line 
1010 gets a response from the keyboard. The 
subroutine is then done so iine lok) sends the 
computer back to the iine after GOSUB, iine 30. 
On iine 30 the computer checks the answer. If 
the response was "Y" the program ends; 
otherwise it goes back to line 10 and starts 
again. 

The subroutines in the demonstration programs 
were short and simpie. They did one thing; they 
waited for answers to a question. Subroutines 
should always be as short as possible and do 
only one thing. 

Subroutines are best used in repetitive or 
complicated programs. When you use 
subroutines, your programs are shorter and 
easier to understand. It is aiso easier to trace a 
probiem in a program that uses subroutines 
than it is in a very iong, unco-ordinated 
program. 

This next example uses 2 subroutines. One 
subroutine waits for a key to be pressed, the 
other is a delay loop. RUN it and examine it. 


V 


5 CLS 

10 PRINT "THIS PROGRAM SHOWS" 

20 PRINT "HOW A SUBROUTINE CAN BE" 

30 PRINT "USED MORE THAN ONCE." 

40 GOSUB 1000 
45 CLS 

50 PRINT "BY USING THE SAME SUBROUTINE" 
60 PRINT "YOUR PROGRAMS CAN BE MADE" 

70 PRINT "MUCH SHORTER AND SIMPLER" 

80 GOSUB 1000 
90 CLS 

100 PRINT "YOU HAVE FIVE SECONDS TO" 

110 PRINT "READ THIS SCREEN!" 

120 GOSUB 1100 
130 CLS 

140 PRINT "AS YOU CAN SEE, SUBROUTINES" 
150 PRINT "SAVE TIME AND SPACE" 

160 GOSUB 1100 
170 CLS 

180 PRINT "HAVE FUN WITH BASIC!" 

190 END 

1000 PRINT "PRESS A KEY TO CONTINUE" 
1010 A$=INKEY$ 

1020 RETURN 
1100 FOR I=1TO5000 
1110 NEXT I 
1120 RETURN 
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SUBROUTINES FOR RANDOM LINES 




Remember the program in the GRAPHICS The TRS-80 COLOR COMPLTTER without 

section that drew random lines on the screen? extended BASIC has no command to draw 


You could use a subroutine to do that. Enter lines. 


one of these programs and see. 

APPLE and ADAM <T 


20 X1=INT (RND (1) *279+0. 5) 
30 Y1=INT (RND (1) *191+0. 5) 
40 X2=INT (RND (1) *279+0. 5) 
50 Y2=INT (RND (1) *191+0. 5) 
60 C=INT (RND (l)*7+0.5) 

70 GOSUB 110 
80 GET A$ 

90 TEXT 
100 STOP 
110 HGR2 
120 HCOLOR=C 

130 HPLOT XI, Y1 TO X2,Y2 
^ 140 RETURN 




J 


TRS-80 COLOR 
COMPUTER WITH 
EXTENDED BASIC 

f 20 X1=RND (256)-l 
30 Y1=RND (192)-1 
50 X2=RND (256)-l 
60 Y2=RND (192) -1 
70 C=RND(8) 

80 GOSUB 200 
90 GOTO 90 
200 PMODE 3,1 
210 SCREEN 3,1 
220 PCLS 
230 LINE (XI, YD- (X2, Y2) ,PSET 
,^240 RETURN 





ATARI 


30 X1=INT (RND (1) *159+0. 5) 
50 Y1=INT (RND (1) *79+0. 5) 
80 X2 = INT (RND (l)*159 + 0. 5) 
100 Y2 = INT (RND (1) *79 + 0. 5) 
120 C=INT (RND (1) *255+0. 5) 
130 GOSUB 200 
140 STOP 
200 GRAPHICS 7 
210 COLOR C 
220 PLOT XI, Yl 
230 DRAWTO X2,Y2 
240 RETURN 
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DECISIONS, / 
DECISIONS \ 

We hope you remember all your IF/THEN 
decisions information, because we're going to 
move on from there now. 

COMPUTED GOTO < 

Sometimes severai iF/THEN statements can be 
repiaced with what is known as a "COMPUTED 
GOTO". A computed GOTO sends the 
computer to a new iine, providing a certain 
condition is met. The BASIC word "ON" is used 
with GOTO to form a computed GOTO. 


^ 70 ON A GOSUB 90,110 ^ 

80 END 

90 PRINT X + Y 

100 RETURN ' 

110 PRINT X - Y 

. 120 RETURN j 

N. — J 

CONDITIONAL “AND” < 

Sometimes a decision must be based on 
whether two conditions are true. The BASIC 
word "AND" allows us this option. Simply state 
your first condition, then use AND, and then 
state your second condition. Go back and look 
at the AGE FINDER program on page 12; it used 
an AND condition in line 320. Here is another 
simple example: 


Remember the math program on p>age 22? It 
can be made shorter with a computed GOTO. 
Here is the same program using our new trick: 


r 


10 INPUT "X ";X 
20 INPUT "Y ";Y 
30 PRINT "CHOOSE ONE;" 

40 PRINT "1-ADDITION" 

50 PRINT "2-SUBTRACTION" 
60 INPUT "1 OR 2 ";A 
70 ON A GOTO 90,110 
80 END 

90 PRINT X + Y 
100 STOP 
110 PRINT X - Y 
130 STOP 


The 

BASIC word 
STOP' does what it ’ 
soys; it STOPS 
the program just as^ 
END does. 


COMPUTED GOSUB < 


20 

30 

40 

50 

V 


\ 

INPUT"ARE YOU HUNGRY ";Q1$ 
INPUT"IS IT LUNCHTIME ";Q2^ 
IF Q1$="YES" AND Q2$="YES" 
THEN 50 
END 

PRINT"HURRY UP AND EAT AND 
GET BACK TO WORK!" i 


Try the program several times with different YES 
and NO combinations. 


CONDITIONAL “OR” < 

In some cases a decision must be based on 
whether either one of two conditions is true. The 
BASIC word "OR" helps with the job. Just insert 
OR between your two conditions. Here's an OR 
condition program: 


A GOSUB can also be computed. The word ON 
is used again. The only difference between a 
computed GOTO and a computed GOSUB is 
that the computer RETURNS to the line after the 
computed GOSUB when the subroutine is 
finished. The math problem can also be written 
to use a computed GOSUB. 


Try the program several times with different YES 
and NO combinations. 


10 

INPUT 

"X ";X 

20 

INPUT 

"Y ";Y 

30 

PRINT 

"CHOOSE ONE;" 

40 

PRINT 

"1 -ADDITION" 

50 

PRINT 

"2-SUBTRACTION 

60 

INPUT 

"1 OR 2 ";A 




r 


10 

INPUT"IS 

Ql$ 

IT 

N 

LUNCHTIME ' 

20 

INPUT"IS 

;Q2$ 

IT 

DINNERTIME " 

30 

IF Ql$=" 

YES 

" OR Q2$="YES" 


THEN 50 



40 

END 



50 

PRINT"IT 

IS 

TIME TO EAT 


V. 


SOMETHING" 
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PROGRAMMING TIPS < 


In this section we'll give you some helpful tips 
on programming. They aren't rules or anything, 
but we have found that they make life a whole 
lot easier. 

There are two ways to write a program; you can 
write it directly into the computer as it comes to 
you or you can take pencil in hand and make 
a paper plan. Short programs (10 lines or less) 
don't usually have to be planned; but for a 
long program it's a good idea to know where 
you're going. 

First of all, the basic ideas for your long program 
should be written down. Think about your 
objective and decide what you want the 
computer to do. Note the special features you 
want the program to have. 

With your ideas organized, you can then draw 
up a flowchart. This is a chart of boxes, circles 
and diamonds that you will connect with lines 
and arrows. Each figure represents a part of 
your program ideas. The purpose of the 
flowchart is to help you organize your ideas into 
a logical pattern, and if there's one thing the 
computer loves, it's logic. 


Here is a flowchart for a simple addition 
program: 




FLOWCHART SYMBOLS: 


INPUT or 
OUTPUT 


CALCULATE 


In longer, more complicated flowcharts, 
subroutines can branch off your main program 
flowchart. Use arrows to show how they can be 
used again and again. (Remember GOTO, 
GOSUB and RETURN.) 

Back to the actual program. It's best to group 
your subroutines together. Put them either at 
the beginning of your program (use GOTO to 
get to the main program) or at the end (use 
END or STOP to prevent the computer from 
continuing into the subroutines). 
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REMARKS 

To help you remember what the various parts of 
your program do, you can include comments 
or short explanations. The BASIC word "REM," 
short for REMark, allows you to do this. When the 
computer sees REM, it ignores what follows and 
continues on with the next line. REM lines are for 
your use, not the computer's. REM is used like 
this: 


10 

REM PROGRAM 

TO ADD TWO 



MBERS 





20 

REM ASK 

FOR 

TWO 

NUMBERS 


30 

INPUT A 





40 

INPUT B 





50 

REM ADD 

THE 

TWO 

NUMBERS 


60 

C=A+B 





70 

REM DISPLAY 

ANSWER 


80 

PRINT C 






/ 


REM makes understanding a program easier. 

VARIABLES 

Your program will probably use some variables. 
Remember to make up names that link the 
variable to its use. And don't forget that the 
computer looks at the first two characters. CARS 
and CABS may be different to you, but the 
computer sees them both as CA. — And no 
BASIC words as variables; that really throws the 
computer. 


PRECAUTIONS 

Typing in a program is a lot of work; protect 
yourself against frustration. Power failures can 
happen at any time, or the cat could knock 
out your plug. SAVE copies of your program 
often, at least once an hour. Then if a disaster 
happens, you only have to LOAD the last SAVEd 
copy, instead of screaming and then starting 
all over again. 


A good program will move from your head to 
paper and then to the computer. Here are 
some good habits to get into: 


i 

Write down your ideas. 

2 

Draw up a flowchart. 

3 

Group subroutines at the beginning 
or end. 

4 

Use REM to make comments. 

5 

Assign suitable variable names. 

6 

Group DATA statements at the 
beginning or end. 

7 

SAVE your program frequently. 


DAIA SIATEMENTS <T 

When your programs need DATA statements, 
group them together. Put them near the 
beginning or near the end. When they are 
grouped, if s easier to find them if you need 
them. (The computer won't have any trouble, 
but you might). And be sure that the number of 
items in the DATA statements equals in quantity 
and kind the number the program will READ. 
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BUILDING A GAME < 


We hove another game for you; if s called 
MEMORY TESTER. The program will flash a short 
message on the screen. Then you must quickly 
recall the message. If s not as easy as it sounds! 

To show you how the game was made, weTI 
take you through the same steps we went 
through. 

1 ) First, the ideas for the program were written 
down. 

MEMORY TESTER GAME - IDEAS 

- message is flashed on screen for a 
few seconds 

- number of seconds is determined by 
selecting a level (1-9) 


- computer then asks how many words 
were in message 

- computer asks what the words were 

- words player enters are compared to 
correct message 

- computer evaluates a score for 
the player 

- messages are random word combinations, 
4-6 words long 

2 ) The next step was to draw up a flowchart. 

3) With the flowchart drown up, it was time to 
write the program. We took each part of the 
flowchart and wrote the program lines. Where 
possible and practical we used subroutines. 


MEMORY TESTER MAIN PROGRAM 


^ The 


100 

BASIC word 


110 

CLEAR empties all J 


^120 

s^he variables^^/ I 

[ start 

/ 130 


CLS 

REM GET LEVEL (1-9) 
INPUT "LEVEL (1-9) 
LEVEL 


170 IF LEVEL < 1 OR LEVEL 
9 THEN 160 



REM FORM MESSAGE 
GOSUB 1000 


CLS 

FOR I=1T0 AW 
PRINT MESSAGE$ (I ) ; " 
NEXT I 

REM DELAY TIME=LEVEL* 
. 5 SECONDS 
GOSUB 1200 
CLS 
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ask how 

-►/many words/ 
were in 
message, 


X 


280 REM GET PLAYER'S 
ANSWER 

290 INPUT "NUMBER OF 
WORDS IN MESSAGE 
";NW 


•— yes- 


number 

< ’^of wordsX 
less than 4 / 
or greater 
'than 6' 


295 IF NW<40R NW>6THEN290 


Y 


no 


380 REM CHECK CORRESPONDING 
WORDS I 


390 GOSUB 1400 

I 

(see subroutine 
on next page) 


400 IF SC=100 
THEN 430 


compare 
corresponding 
words 


_yes. 


/ ask / 

for words / 


number 
/6f words\ 
seen = number 
"^of words ip/ 
message 

no 



300 

310 

320 

330 

340 

350 


360 


370 


REM INPUT WORDS 
FOR I=1T0 NW 
PRINT "WORD #";I 
INPUT WSEEN$ (I ) 
NEXT I 

REM CHECK WHETHER 
NUMBER OF WORDS 
REM SEEN EQUALS 
NUMBER IN MESSAGE 
IF NWOAW THEN 410 


REM CHECK EACH WORD 
SC=0:GOSUB 1600 


(see subroutine 
on next page) 


display 
message 
and 
score 



500 REM PLAY AGAIN OPTION 
510 PRINT "PLAY AGAIN? 

(Y OR N) " 

520 REM GET ONE KEY REPLY 
530 REPLY$=INKEY$ 


rask if 
another 
game is 
desired 



-yes—, 


/^Atariusers: 
f Go to the 
( Conversion Chart 
V for some necessary 
\»Jine changes! 



430 


440 


450 

460 

470 

480 

490 


REM DISPLAY 
MESSAGE AND SCORE 
PRINT "THE MESSAGE 
WAS ..." 

FOR I=1T0 AW 
PRINT MESSAGE$ (I) 

• n II • 

NEXT I 
PRINT 

PRINT "YOUR SCORE 
IS ";SC;"%" 


540 IF REPLY$="Y"THEN 
140 

550 IF REPLY$0"N"THEN 
520 


560 REM END OF GAME 
570 END 
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MEMORY TESTER 
SUBROUTINES 


N 

1000 REM SUBROUTINE TO 
FORM MESSAGE 
1010 RESTORE 
1020 AW=3+RND(3) 

1030 FOR I=1T0 AW 
1040 W=RND(6) 

1050 FOR J=1T0 W 
1060 READ MESSAGE$(I) 

1070 NEXT J 
1080 IF W=6 THEN 1120 
1090 FOR K=1T06-W 
1100 READ DU$ 

1110 NEXT K 
1120 NEXT I 
1130 RETURN 

J 


Flowchart for subroutine to check 
corresponding words 




^200 REM SUBROUTINE TO DELAY^ 
1210 REM DELAY TIME=LEVEL* 

. 5 SECONDS 

1220 FOR I=1T0 LEVEL*550 
1230 NEXT I 

.1240 RETURN j 

V ^ 


'^400 

REM SUBROUTINE TO 

CHECK 

1410 

REM CORRESPONDING 

WORDS 

1420 

REM SET SCORE TO 
IF NOT 

0 

1430 

SC=100 


1440 

FOR I=1T0 AW 


1450 

IF WSEEN$ (I ) <>MESSAGE$ 
(I) THEN SC=0 

1460 

NEXT I 


d470 

RETURN 
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1600 REM SUBROUTINE TO 
CHECK WORDS 

1610 REM IN PLAYER'S ANSWER 
TO MESSAGE 
1620 FOR I=1T0 AW 
1630 FOR J=1T0 NW 
1640 IF MESSAGE$ (I ) <>WSEEN$ 
(J)THEN 1700 
1650 REM ADD TO SCORE 
1660 S=(100/AW)/2 
1670 IF I=J THEN S=S*2 
1680 SC=SC+S 
1690 J=NW 
1700 NEXT J 
1710 NEXT I 
1720 RETURN 


Data for subroutine to form message 




2000 REM DATA TO FORM 
MESSAGES 

2010 DATA JACK, SUSAN, JEFF, 
SANDY, DAVE, DOUG 

2020 DATA QUICKLY, SLOWLY, 
SWIFTLY, BRISKLY, RAPID 
LY, SPEEDILY 

2030 DATA RUNS, JUMPS, WALKS, 
SWIMS , GOES , FOLLOWS 

2040 DATA SOUTH, NORTH, EAST, 
WEST, UP, DOWN 

2050 DATA OVER, UNDER, ACROSS 
, THROUGH, BETWEEN, 
BENEATH 

2060 DATA CARS, CATS, DOGS, 
DARTS , CABS , DOORS 


Flowchart for subroutine to check words 


r start ^ 


get word 
from 
answer 


get word 
from 

message 


rto 



add 

full 

value 
to score 
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DEBUGGING? 

After painstaking care in designing and 
creating a program, it usually won't work the 
first time it's RUN. There are bound to be a few 
"BUGS" in your program. A bug is any problem 
that prevents a program from working correctly, 
or from \MDrking at all. 

You may have skipped a crucial step In putting 
the program together; maybe you didn't type it 
in or even think of it. Quite often those kinds of 
errors become obvious \Arhen you RUN your 
program and something important fails to 


happen. Perhaps on first RUNning the MEMORY 
TESTER you didn't have time to read the 
message. Check, maybe you missed the delay 
routine. Just go back and enter it. 

Sometimes errors aren't that obvious. The 
computer may simply stop executing the 
program. It will give you the line number where 
it stopped and an error message. But the 
computer has a very limited vocabulary so 
these messages may not always pinpoint the 
exact problem. 



Oh no, you got the dreaded SYNTAX ERROR! 
Even they sometimes aren't that obvious. Can 
you figure out what's wrong with this line? 


Or perhaps you entered: 

( PRINT ANOTHER GAME" 




210 F0R 1=1 TO NWO 




This time the beginning quotes on the 
character string were missing. 


The word F0R should be changed to FOR. 
Mistaking the number zero (0) for the capital 
letter "O" is quite common. 

Here's another tough one: 

^ 230 PRINT "ANOTHER GAME?" ^ 

PR1 NT should be PRINT. Confusing the number 
one (1) for the capital letter "I" is also common. 


There could be a problem with your DATA 
statements. Look at this line: 


2000 DATA FROG, DOG CAT 



The comma is missing between DOG and CAT. 


Another possible DATA problem is the old "OUT 
OF DATA ERROR." OUT OF DATA means that 
there are not enough items in your DATA 
statements to match the READ statements. 
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ERROR 

MESSAGES 


Another common error message is "UNDEFD 
STATEMENT" OR TINE NOT FOUND. "This means 
that you used a GOTO or GOSUB to branch to 
a line that did not in fact exist. Perhaps you 
haven't entered that line yet, or you might have 
entered it under the wrong line number. 

Did you get a "RETURN WITHOUT GOSUB" error? 
This means a subroutine was reached without a 
GOSUB. You may hove used a GOTO instead of 
a GOSUB. If the subroutines are at the end of 
your program, you may hove left out an END 
statement that would separate the main 
program from the subroutines. If your 
subroutines are at the beginning of the 
program, you may need a GOTO to get to the 
main program. 

Should you get a "NEXT WITHOUT FOR ERROR ," 
the computer has found one more NEXT than 
there are FOR statements. You may hove 
forgotten one of your FOR lines, or there may be 
an extra NEXT line, or the variable used with a 
FOR does not match the one with NEXT. 



Some bugs can be very difficult to find, but if 
there is a bug, your program won't RUN 
properly - it might not work at all! When you 
can't firrd a bug, try retyping suspected or 
complex lines. You may correct the problem 
without even rxDticing the error. 
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BUBBLE SORT < 


Whenever someone hands you a long list of 
names, he usually wants it put into 
alphabetical order. Sorting a list like that is 
rx5t only dull, it's frustrating - you make one 
mistake and it's all wrong! Well, now you can 
pass the buck to your computer! With a sorting 
program it will happily sort your list into perfect 
order. We're going to be very generous and 
give you a sorting program. Ifs called "BUBBLE 
SORT." 

A > 

5 CLS 

10 INPUT "NUMBER OF WORDS 
TO SORT";N 
20 DIM W$ (N) 

25 PRINT "ENTER WORDS:" 

30 FOR I=1T0 N 
35 PRINT "WORD #";I 
40 INPUT W$ (I ) 

50 NEXT I 

60 PRINT "NOW SORTING... 

PLEASE WAIT" 

70 PRINT 

80 FOR I=1T0N-1 

90 FOR J=I+1T0N 

100 IF W$ (I )<W$ (J)THEN150 

110 DU$=W$(J) 

120 W$(J)=W$(I) 

130 W$ (I ) =DU$ 

150 NEXT J 
160 NEXT I 
170 FOR I=1T0N 
180 PRINT W$ (I ) 

190 NEXT I 





Can you figure out how the bubble sort 
program works? After all the words have been 
entered, the computer looks at each word. It 
compares each word to every word that comes 
after it in the list. If two words are in the wrong 
order, they are swapped. When every word has 
been checked this way, the list is in order. 

This method of sorting is the slowest there is, but 
it's easy to understand. Other sorting methods, 
such as the "QUICK SORT, "are much faster, but 



the programs are longer and more complex 
than the bubble sort. You can find other sort 
programs in computer books. 
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FUN TIME ^ 


Well, you've done it! You ore now a computer 
person. BASIC is your second language, your 
first computer language. We haven't taught 
you everything there is to know about BASIC, 
but you've learned enough to call yourself a 
BASIC buff. 

All that work deserves some kind of reward, so 
we've got another game for you now. This 
game is called CODE CRACKER. The computer 
creates a three-digit code (actually a number 
between 100 and 999). You have 15 tries to 
crack the code and guess the number. As you 
go along the computer will tell you how many 
digits you have right; it will also state how many 
are in the right position. Use this information 
logically to determitTe the code. Have fun! 


Special Note: The program will not allow 
double digits, that's too confusing; so numbers 
like 988 are out. And here's a brief explanation 
of the hints the computer will give: 


DIGIT 0 POSITION 0 


- rx) numbers right 


DIGIT 0 POSITION 1 


- 1 digit in the right position 


DIGIT 1 POSITION 0 


- 1 digit right, but in wrong position 


DIGIT 1 POSITION 1 

- 1 digit in wrong position and 1 in the 
right position 

GO FOR IT! 


CODE CRACKER < 


100 REM CODE CRACKER GAME 
110 REM SET UP ARRAYS 
120 DIMG$(15) ,RP(15) ,RD(15) 

130 REM GIVE INSTRUCTIONS 
140 CLS 

150 PRINT" IN THIS GAME I -MAKE UP A" 

160 PRINT"THREE DIGIT CODE. THE CODE" 
170 PRINT"WILL BE BETWEEN 100 AND 999." 
180 PRINT"Y0U HAVE FIFTEEN GUESSES." 

190 PRINT"AFTER EACH GUESS I WILL" 

200 PRINT"TELL YOU HOW MANY DIGITS" 

210 PRINT"ARE CORRECT AND HOW MANY" 

220 PRINT"ARE IN THE RIGHT POSITION." 

230 PRINT"IF YOU ENTER AN INVALID GUESS" 
240 PRINT"OR A DUPLICATE GUESS," 

250 PRINT"! WILL LET YOU TRY AGAIN." 

260 PRINT 

270 PRINT"PRESS A KEY TO CONTINUE" 

280 REM WAIT FOR KEY PRESS 
290 GOSUB1000 
300 REM MAKE CODE 
310 CLS 

320 C0DE=RND (999) 

330 IFCODE<100THEN320 

340 CODE$=RIGHTS (STR$ (CODE) ,3) 


Atari users: 

Go to the 
Conversion Chart 
for some necessary 
line changes. 
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CODE CRACKED < 


350 REM CHECK FOR DUPLICATE DIGITS 
360 D$=CODE$ 

370 FLAG=0 <i 

380 GOSUB1500 
390 IFFLAG.=1THEN320 
400 REM GET GUESSES 
410 F0RI=1T015 
420 CLS 

430 REM DISPLAY PREVIOUS RESULTS 
440 IFI=1THEN500 
450 FORJ=lTOI-l 

460 PRINT"GUESS ";G$(J); 

470 PRINT" DIGITS: ";RD(J); 

480 PRINT" POSITIONS: ”;RP(J) 

490 NEXT J 

500 REM ENTER NEXT GUESS 
510 PRINT 

520 PRINT"ENTER GUESS #";I 
530 INPUTG 

540 IFG<100ORG>999THEN520 
550 G$(I)=STR$(G) 

560 IFLEN (G$ (I ) ) >4THEN520 
570 G$(I)=RIGHT$(G$(I) ,3) 

580 REM CHECK FOR DUPLICATE DIGITS 
590 D$=G$(I) 

600 FLAG=0 
610 GOSUB1500 
620 IFFLAG=1THEN520 
630 FLAG=0 

640 REM CHECK FOR DUPLICATE ANSWER 

650 GOSUB1400 

660 IFFLAG=1THEN520 

670 REM COMPARE TO GUESS 

680 GOSUB1100 

690 REM CHECK IF ANSWER IS RIGHT 


"RAG" 

.is a variable 
that will be 
either one or zero. 

It will be 1 

for one condition and 
0 for another. 
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700 IFRP (I ) O3THEN730 

710 PRINT"VERY GOOD! YOU GOT IT IN GUESSES." 

720 END 
730 NEXTI 

740 REM DIDN'T GET THE CODE 
750 CLS 

760 PRINT"THAT WAS ALL YOUR GUESSES." 

770 PRINT"THE CODE WAS ";CODE$ 

780 END 

1000 REM WAIT FOR KEY PRESS 
1010 R$=INKEY$ 

1020 RETURN 

1100 REM COMPARE GUESS TO CODE 
1110 F0RK=1T03 
1120 F0RL=1T03 

1130 REM SEPARATE DIGITS IN GUESS 
1140 REM AND ANSWER 
1150 G$=MID$ (G$ (I ) ,K,1) 

1160 C$=MID$(CODE$,L,l) 

1170 REM COMPARE DIGITS 

1180 IFG$OC$THEN1220 

1190 REM COMPARE DIGIT POSITIONS 

1200 IFKOLTHENRD (I)=RD (I)+l 

1210 IFK=LTHENRP (I ) =RP (I ) +1 

1220 NEXTL 

1230 NEXTK 

1240 RETURN 

1400 REM CHECK FOR DUPLICATE ANSWER 

1410 IFI=1THENRETURN 

1420 FORK=lTOI-l 

1430 IFG$(I)=G$(K)THENFLAG=1 

1440 NEXTK 

1450 RETURN 

1500 REM CHECK FOR DUPLICATE DIGITS 
1510 F0RK=1T03 
1520 F0RL=K+1T03 

1530 IFMID$ (D$,K, 1) =MID$ (D$, L, 1) THENFLAG = 1 
1540 NEXTL 
1550 NEXTK 
1560 
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BASIC CONVERSION CHART < 


IN BOOK 

COMMODORE 

APPLE/ADAM 

LIST 10 - 30 

LIST 10 - 30 

LIST 10 - 30 

10 INPUT"STRING ";A 

10 INPUT"STRING"; A 

10 INPUT"STRING ";A 

CLS 

PRINT CHR$ (147 ) 

HOME 

X$=INKEY$ 

10 GET X$ 

20 IF X$=""THEN 10 

GET X$ 

D=RND (6) 

D = INT (RND (1) *6 + 1) 

D=INT (RND (1) *6+1) 

CLEAR 

CLR 

CLEAR 


ATARI users, here are the line changes and 
the additional lines you require. 


< 


AGE FINDER on page 12, make these line changes: 

120 READ T 
125 N(I)=T 


THE FIRST NESTED LOOP PROGRAM on page 41, make these 
additions and changes: 

35 F0RL=1T0J 

36 PRINT " 

37 NEXT L 

40 PRINT"BASIC IS FUN" 


THE FIRST ARRAY PROGRAM on page 43. make these 
additions and changes: 


20 

PRINT"BIRTH YEAR 
UT BY:BY(1)=BY 

NUMBER 

1 

:INP 

30 

PRINT"BIRTH YEAR 
OT BY:BY(2)=BY 

NUMBER 

2 

"? :INP 

40 

PRINT"BIRTH YEAR 
UT BY:BY(3)=BY 

NUMBER 

3 

:INP 


MEMORY TESTER on page 50, make these line changes: 

120 CLR 

130 DIMMESSAGES (7*10) ,WSEEN$ (7*10) , 
DOS (10) ,REPLYS(1) ,AL(6) ,ML(6) 
140 PRINT CHRS (125) 

160 PRINT"LEVEL (1-9)" 

210 PRINT CHR$(125) 

230 PRINT DUS;" "; 

270 PRINT CHRS (125) 

290 PRINT"NUMBER OF WORDS IN MESSAG 
E" 

330 INPUT DUS 
460 PRINT DOS;" "; 

530 GET#1, REPLY 

1020 AW=3+INT (RND (1) *3+1) 

1040 W=INT(RND(1)*6+1) 

1050 FOR J=1T0W-1 
1060 NEXT J 

1070 MESSAGES (I*10)=DUS 
1220 FOR I=1TOLEVEL*100 
1450 IF WSEENS (1*10, I*10+AL (I) ) OME 
SSAGES (1*10, I*10+ML (I ) ) THENSC= 
0 

1640 IFMESSAGES (I *10 , I *10+ML (I ) ) <>W 
SEENS (J*10, J*10 + AL (J) ) THEN1700 


THE SECOND ARRAY PROGRAM on page 43, make this 
change: 

40 INPUT BY:BY(I)=BY 


And add these addittanal lines: 

10 OPEN#1,4,0,"K:" 

165 INPUT LEVEL 

225 DUS=MESSAGES (I *10, I*10+ML (I) ) 

295 INPUT NW 

333 AL (I )=LEN (DUS) -1 

335 WSEENS (I*10)=DUS 

455 D0S=MESSAGES (I *10 , I *10+ML ( I ) ) 

535 REPLYS=CHRS (REPLY) 

1045 IF W=1 THEN 1062 
1055 READ DUS 

1062 READ DUS 

1063 ML(I)=LEN (DUS)-l 
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TRS-80 


LIST 10 - 30 


10 INPUT”STRING"; A 


CLS 


10 X$=INKEY$ 

20 IF X$="" THEN 10 


D = RND (6) 


CLEAR 



ATARI 


PRINT CHR$ (125) 


1 OPEN#1,4,0,"K;"-*- — 

2 DIMX$ (l)-p-SHiydoon^ 

10 GET#1 ,X>H ^ ina program 
20 X$=CHR$ (X) — T 


D = INT (RND (1) *6 + 1) 


LIST 10,30 


10 PRINT"STRING"; 

11 INPUT A 


CLR 


CODE CRACKER on page 57, make these line changes: 


Delete lines 560 ana 570. TVnd add these 




120 

DIMG$(16*3) ,DU$(4) , CODES (3) ,DS( 

90 OPEN#1,4.0 ."K:" 


3),CS(3),RP(15),RD(15) 

122 

FOR 1=1 TO 15 

140 

PRINT CHRS(125) 

124 

RP(I)=0 

310 

PRINT CHRS (125) 

125 

RD(I)=0 

320 

C0DE = INT (RND (1) *999 + 1) 

128 

NEXT I 

340 

CODES=STRS (CODE) 

1525 

IF K>3 OR L>3 

420 

PRINT CHRS(125) 



460 

PRINT"GUESS ";GS(J*3,J*3 

+ 2) 



550 

GS(I*3,I*3+2)=STRS(G) 



590 

DS=GS(I*3, 1*3+2) 



750 

PRINT CHRS (125) 




1010 GET#1,A 
1150 D$=G$(I*3+K-1,I*3+K-1) 

1160 C$=C0DE$ (L,L) 

1180 IFD$OC$THEN1220 
1430 IF G$(I*3, I*3+2)=GS(K*3,K*3+2) 
THEN FLAG=1 

1530 IF D$(K,K)=D$(L,L) THEN FLAG=1 



BUBBLE SORT on page 56. make these line changes: 

5 PRINT CHR$(125) 

10 PRINT "NUMBER OF WORDS TO SORT" 
20 DIM W$(N*20+20) ,DU${20) ,L(N) 

40 INPUT DUS 

100 IF W$ (1*20, I*20+L (I ) ) <W$ (J*20, J 
*20+L(J) )THEN150 
110 DU$=W$(J*20,J*20+L(J)) 

120 W$ (J*20, J*20+L(I ) ) =W$ (1*20,1*20 
+L(I) ) 

130 W$(1*20,I*20+L)=DU$ 

180 PRINT W$ (I*20,I*20+L (I ) ) 


And add these new lines: 

15 INPUT N 
45 L(I)=LEN (DUS)- 
48 W$(I*20)=DU$ 
115 L=L(J) 

125 L(J)=L(I) 

135 L(I)=L 
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GLOSSARY OF BASIC COMMANDS 
AND COMPUTER TERMS 


AND - A BASIC language word, it is a conditional operator; It ensures that two or rrx^re conditions are true 
before any action Is taken. 

array - A math term also used by computer people, it refers to a collection of related information stored under 
one variable name. 

ASC - A BASIC command word used to convert a character to its ASCII code number. 

ASCII - A contraction of "American Standard Code for Information Interchange," pronounced ASK-KEY or ASH- 
KEY. 

BASIC - A contraction of "Beginner's All-purpose Symbolic Instruction Code"; It is a computer language, a 
variation of which is common to most home computers. 

branch - A computer term for the switching from one (Dart of a program to aiDother. 

bubble sort - A tyice of program that organizes a list Into alphabetical or numerical order. 

bug - A computer term for an error In a program that stops It from running properly or from running at all. 

character - A computer term referring to a number, letter, symbol or S|Dace. 

character string - A computer term referring to a series of characters inside quotation marks. 

CHR$ - A BASIC command word used to convert a number Into its ASCII code number. 

CLEAR - A BASIC command word used to empty variables. 

CLS - A BASIC command word used to clear the screen. 

computed GOSUB - A computer term that refers to a branch to a subroutine deicending on the value of a 
variable. 

computed GOTO - A computer term that refers to a branch to a line number depending on the value of a 
variable. 

co-ordinates - A computer term referring to a set of numbers that sjcecify a row and column on the computer 
screen. 

DATA - A BASIC command word used to store a list of information, to be used by a READ statement, 
debug - A computer term that means "to correct errors." 

delay - Used In computer terminology to refer to a pause while the computer does nothlr^ for a specified 
period of time. 

delete - Used In computer termirKDiogy to mean take something out; take out a character, number, space, a 
whole line or a program. 

DIM - A BASIC command word short for DIMension; it tells the computer to expect an array of a given size. 

disk, diskette, floppy diskette - A round flat piece of plastic with a specially magnetized surface on which 
information is stored. 

disk drive - A device that rotates (spins) a disk so that information can be read or written, 
eiement - Used in computer terminology to refer to a single piece of information In an array. 

END - A BASIC command word used to stop a program. 

flowchart - A computer term that refers to a series of boxes, diamonds and circles which graphically outlines 
the logical sequence of a program. 

FOR/TO/NEXT - BASIC command words for a tyjDe of loop that specifies the number of refDetItions. 

GOSUB - A BASIC command word that sends the computer to a subroutine. 

GOTO - A BASIC command word that sends the computer to a line number, 
graphics - In computer terminology refers to pictures or graphs on a computer screen. 
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high resolution - In computer terminology refers to very detailed graphics pictures, usually drawn with 
individual pixels. 

hl-res - A short form for high resolution. 

IF/THEN - BASIC command words that tell the computer to make a branch depending on the information it 
receives. 

Index - In computer terminology it is used with arrays, the number indicating a particular piece of Information, 
the information is numbered sequentially in the array. 

INKEY$ - A BASIC command word that takes a single character keyboard response and assigns it to a variable. 

input - In computer terminology, any information that the computer Is given to work with. 

INPUT - A BASIC command word which tells the computer to expect some irvcoming Information. 

LER$ - A BASIC command word that tells the computer to use part of a string, starting from the left side; 
reference numbers given tell it how many characters to use. 

LEN - A BASIC command word short for LENgth; this word tells the computer to count the number of characters 
in a string. 

LINE NOT FOUND - An error message; a line number was referenced that did not exist, 
line number - A number given to a line of programming instructions. 

LIST - A BASIC command word to have the computer display a line or program. 

LOAD - A BASIC command word that tells the computer to put a program into its memory. 

loop - A computer term that refers to having the computer do something again and again, 
memory - The space where the computer stores information and/or instructions. 

MID$ - A BASIC command word that tells the computer to use part of a string, reference numbers given tell it 
how many characters to use, starting at a specified middle point. 

nested loop - A loop within a loop; the inner loop is performed as many times as the outside loop tells it to. 

NEW - A BASIC command word that tells the computer to clear its memory. 

NEXT - A BASIC command word that tells the computer to keep doing something until it has reached the 
sp>ecifled number of times It is supposed to do it; used with FOR, TO and STEP. 

NEXT WITHOUT FOR - An error message; the computer found an extra NEXT command after It has finished a 
loop. 

ON - A BASIC command word used with GOTO or GOSUB to perform a computed GOTO or GOSUB. 

OR - A BASIC command word that allows one of two or more given conditions to be true before any action Is 
taken. 

OUT OF DATA - An error message; the number of variables in a READ statement outnumber the pieces of 
information to be read from the available DATA statements. 

output - A computer term that refers to the result or the answer the computer has arrived at. 

PEEK - A BASIC command word used to examine a screen or memory location. 

pixel - Short for picture element. It Is a tiny dot on the computer screen; groups of these lighted at any given 
time form letters, numbers and graphics. 

POKE - A BASIC command word used to put something into a screen or memory location. 

PRINT - A BASIC command word that tells the computer to display something on the screen, 
program - A series of instructions for the computer to perform. 

quick sort - A type of program that organizes a list into alphabetical or numerical order, 
random number - A number that is selected for no apparent reason. 

READ - A BASIC command word that takes information from DATA statements and assigns it to variables. 

relational operator - Used both in computer and math termirx)logies, something that comp>ares two or more 
things as to size, eg. greater than, less than, etc. 
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REM - A BASIC word short for REMork, which allows the programmer to make rx)tes inside a program; these are 
not read by the computer. 

RESTORE - A BASIC command word that tells the computer to go back to the first DATA statement and start 
using the Information again. 

RETURN - When a computer finishes a subroutine, this BASIC word sends it back to the main program. 

RETURN WITHOUT GOSUB - An error message; the computer got to a RETURN statement without having gone 
through a GOSUB statement. 

RIGHTS - A BASIC command word that tells the computer to use a part of a string, starting with the right-most 
character; a number is then given to tell the computer how many characters to take. 

RND - A BASIC command word, a contraction of RaNDom, that is used to create random numbers. 

RUN - A BASIC command word that tells the computer to execute the program It has in its memory. 

SAVE - A BASIC command word that tells the computer to take the information It has In its memory and store 
it on either tape or disk. 

sort - A computer program to organize a list into alphabetical or numerical order; there are many types. 

STEP - A BASIC command word used with loops to specify how to go through the loop; used with FOR, TO and 
NEXT. 

STOP - A BASIC command word used to end a program. 

STR$ - A BASIC command word that changes a number variable into a string variable. 

string - In computer terminology, a series of characters inside quotation marks. 

subroutine - A computer term that refers to a small section of a program, a section that does one sp>ecific 
thing. 

subscript - A number which designates a certain piece of Information In an array. 

SYNTAX ERROR - An error message; the computer has not understood a command due to misspelling or some 
other mistake. 



tape - Even In computer terminology, it refers to ordinary audio cassette tape, 
tape recorder - It usually refers to an ordinary cassette player, 
text - Written words and numbers, as opposed to graphics. 

TO - A BASIC command word used in FOR/TO/ NEXT loops. 

THEN - A BASIC command word that tells the computer to follow the instructions that come after it, if one or 
more conditions is true. 

UNDEFD STATEMENT - An error message; a lire number was referenced that does ret exist. 

VAL - A BASIC command word short for VALue that converts a number string into a number value, 
variable - That which stands for or represents something else. 

VERIFY - A BASIC command word that tells the computer to check what it haejust stored on either tape or disk 
with what it still has in its own memory. 
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